สำหรับแฟนพันธุ์แท้ที่สนใจอยากจะเรียนรู้ Excel ให้เก่งเป็นมืออาชีพ นอกจากการคลิก Like ที่ Post ใน facebook แต่ละเรื่องแล้ว กรุณาคลิกปุ่ม Like / Follow เพื่อติดตาม https://www.facebook.com/ExcelExpertTraining/
View RSS Feed

Recent Blogs Posts

  1. Macro ส่งข้อมูลไปขึ้นบรรทัดใหม่

    หลักก็มีนิดหน่อย
    1.การจะส่งค่าใด ๆไปยังเซล B1
    • range("B1").value = 100
    • [B1].value = 100
    • cells(1,2) = 100

    ทั้งสามแบบ ได้ค่าเหมือนกัน เลือกเอาว่าจะใช้แบบไหน
    2.การเลื่อน Cursor ไปยังเซล B1
    • Range("ฺB1").Select
    • [B1].select
    • Cells(1,2).select

    3.การเลื่อนเซลไปยังตำแหน่ง โดยอ้างอิงกับตำแหน่งเดิม ใช้สำคั่ง Offset( row, column ).select
    ถ้าเลื่อนไปทางขวา 10 คอลัมน์ ใน Row เดียวกัน โดยนับจาก B1
    • [B1].offset(0,10).select

    ถ้าเลื่อนไปทางซ้าย ...
  2. นาฬิกา ดิจิตอล (7-segment Digital Clock)


    หลังจากผันตัวเองมาเป็นคนสวนทำให้ห่างหายไปจากงาน Excel
    ทำให้ความรู้และประสบการณ์ค่อยๆหายไปด้วยเลยต้องกลับมาฝึกฝนตนเอง

    แบบฝึกหัดนี้เป็นการเขียนรหัสเพื่อควบคุม ...

    Updated 15 Oct 2015 at 12:03 by vajra

    Categories
    Excel VBA and Add-Ins
  3. Pictures Layout & Tools

    ก่อนที่เข้าเรื่อง Pictures Layout มาทำความรู้จักกับ FileDialog "msoFileDialogFilePicker"
    Name:  File Picker.png
Views: 5386
Size:  141.5 KB
    Copy Code ไปใส่ใว้ใน Module
    Code:
    Sub InsertPictureFiles()
     Dim fd As FileDialog
     Set fd = Application.FileDialog(msoFileDialogFilePicker)
      Dim vrtSelectedItem As Variant
     With fd
        .InitialFileName = "F:\InsertPicTask\"
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.png", 1
             If .Show = -1 Then
    ...

    Updated 7 Jan 2015 at 11:16 by vajra

    Tags: pictures
    Categories
    Uncategorized
    Attached Thumbnails Attached Files
  4. Number Spelling

    ลองฝึกเขียนตามความเข้าใจของตัวเอง

    Code:
    Public Function eSpell(ByVal num As Variant, nDecimal As Byte, mainUnit As String, subUnit As String) As String
    Dim Decimals, intnumSpell
    mainUnit = " " & mainUnit & " "
    subUnit = " " & subUnit
    intnumSpell = Spellnum(Int(num)) & mainUnit
    intnumSpell = IIf(intnumSpell = mainUnit, "", intnumSpell)
    Decimals = Spellnum(Val(Right(num * 10 ^ nDecimal, nDecimal))) & subUnit
    Decimals = IIf(Decimals = subUnit,
    ...
    Categories
    Uncategorized
  5. VBA Function ตรวจ,แก้ไข หมายเลขบัตรประชาชน

    Code:
    Function IDCheck(IDNum As Variant, Optional ByVal ResultType As Byte) As Variant
    Dim Text As String
    For i = 1 To Len(IDNum)
    If InStr("0123456789", Mid(IDNum, i, 1)) > 0 Then Text = Text & Mid(IDNum, i, 1)
    Next i
    If Len(Text)  13 Then
    IDCheck = False
    Exit Function
    End If
    For i = 1 To 12
    sum = sum + Mid(Text, i, 1) * (14 - i)
    Next
    N = 11 - (sum Mod 11)
    IDCheck = Right(N, 1) = Right(Text, 1)
    Select Case ResultType
    ...
    Categories
    Excel VBA and Add-Ins
Page 1 of 12 12311 ... LastLast