โค้ด vb สร้าง ปุ่ม Button เพื่อบันทึกไฟล์ excel เป็น PDF ตัวอย่างเป็นการบันทึก invoice เป็นเอกสาร pdf

การสร้างฟอร์ม (Form) ค้นหาข้อมูลพนักงาน ด้วย function Vlookup และ มีคำสั่งโค้ดแจกให้ทำ ดังนี้

Private Sub ComboBox1_Change()

Dim q, p As Long

q = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))

For p = 1 To 8

Me("textbox" & p).Value =

Application.WorksheetFunction.VLookup(ComboBox1.Value,

Sheet1.Range("A2:i13"), p + 1, 0)

Next p

End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub

เริ่มต้นง่ายๆกับการเขียนโปรแกรม การคำนวณพื้นที่ หลาย ๆ สูตร แบ่งด้วย Tab Page ด้วย VBA EXCEL

การสร้างโปรแกรมง่ายๆ โดยใช้ tab page เพื่อคำนวณหาพื้นที่สามเหลี่ยม ด้วย VBA EXCEL คลิปต่อจากการลองสร้างโปรแกรมเบื้องต้น

การสร้างโปรแกรมจับฉลาก ชิงโชค แจกรางวัล ในงานเทศกาลต่างๆ ใช้การสุ่มตัวเลข การค้นหา randbetween vlookup ด้วย Vba Excel มีโค้ดให้ ด้านล่างจร้าาาา ^_^

Joy To The World โดย Audionautix ได้รับอนุญาตภายใต้ ใบอนุญาต Creative Commons Attribution (https://creativecommons.org/licenses/by/4.0/)

ศิลปิน: http://audionautix.com/

======== VBA Excel Code ==============

Private Sub CommandButton1_Click()

Dim ran As Double

Dim n As String

Label3.ForeColor = vbWhite

For i = 1 To 9

Application.Wait Now + TimeValue("00:00:01")

ran = WorksheetFunction.RandBetween(1, 9)

n = WorksheetFunction.VLookup(ran, Sheet1.Range("A2:B10"), 2)

Label2.Caption = "¼Ùé⪤´Õ"

Label3.Caption = n

Next

Application.Wait Now + TimeValue("00:00:01")

Label3.Visible = False

Application.Wait Now + TimeValue("00:00:01")

Label3.ForeColor = vbGreen

Label3.Visible = True

End Sub

Private Sub CommandButton2_Click()

Label2.Caption = ""

Label3.Caption = ""

End Sub

การสร้างป้าย ฉลากราคาสำหรับติดสินค้า ง่ายๆ ด้วย VBA Excel มีโค้ดคำสั่งให้ด้านล่างเลยค่ะ

โค้ด vba สร้าง ฉลาก ป้ายราคา ติดที่สินค้า

Do

r = r + 1

Loop Until Cells(r, 1) = ""

Cells(r, 1).RowHeight = 25

Cells(r, 1).ColumnWidth = 20

Cells(r, 1).HorizontalAlignment = xlCenter

Cells(r, 1) = TextBox1.Value & " bath"

Cells(r + 1, 1) = "*" & TextBox2.Value & "*"

Cells(r + 1, 1).RowHeight = 85

Cells(r + 1, 1).ColumnWidth = 20

Cells(r + 1, 1).HorizontalAlignment = xlCenter

Cells(r + 1, 1).Select

With Selection.Font

.Name = "EAN-13"

.Size = 48

End With

Range(Cells(r, 1), Cells(r + 1, 1)).BorderAround Weight:=xlThick

Range(Cells(r, 1), Cells(r + 1, 1)).Select

Selection.Copy

Range(Cells(r, 2), Cells(r + 1, 2)).Select

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range(Cells(r, 3), Cells(r + 1, 3)).Select

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range(Cells(r, 4), Cells(r + 1, 4)).Select

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range(Cells(r, 5), Cells(r + 1, 5)).Select

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

การสร้างโปรแกรมวงล้อชิงโชค รูเล็ต Roulette เกมจับฉลาก ด้วยโปรแกรม Excel มีโค้ดคำสั่งให้คัดลอกได้

Sub spinwheel()

mx = WorksheetFunction.RandBetween(5, 11)

xt = 0.05

For i = 1 To 100

If i Mod mx = o Then

xt = xt + 0.1

If xt > 0.4 Then

Exit For

End If

End If

ActiveSheet.Shapes("Picture 2").IncrementRotation 10

t = Timer

Do While Timer < t + xt

DoEvents

Loop

ActiveSheet.Shapes("Picture 2").IncrementRotation 10

Next

End Sub

Deck the Halls B โดย Kevin MacLeod ได้รับอนุญาตภายใต้ใบอนุญาต ครีเอทีฟคอมมอนส์แบบระบุแหล่งที่มา 4.0 https://creativecommons.org/licenses/by/4.0/

แหล่งที่มา: http://incompetech.com/music/royalty-free/index.html?isrc=USUAN1100368

ศิลปิน: http://incompetech.com/

การสร้างเกมส์ ด้วย Randbetween และ Vlookup สร้างปุ่มกดเขียนโปรแกรม VB Excel ง่ายๆ

การเขียนโปรแกรมง่ายๆ เพื่อสร้างเกม ด้วย randbetween และ Vlookup ใช้ vb เพื่อ counter นับคะแนน สร้างbutton ปุ่ม Reset game ต่อจากคลิป 1/3

การสร้างโปรแกรม เกม spin ง่ายๆ ด้วย vb Excel คลิป 3/3 เป็นการใช้ if then else เพื่อตรวจสอบและให้คะแนนตามเงื่อนไข