Excel Forum

ผมมีเรื่องอยากรบกวนถามเกี่ยวกับการเขียน Form ใน MS Access หน่อยครับ

สมมติว่าผมมีข้อมูลอยู่ 1 Table (ตามไฟล์ที่แนบมา) จากนั้นผมต้องการสร้าง Form ขึ้นมา Form หนึ่งเพื่อที่จะแสดงข้อมูลนั้น

โดยสิ่งที่ผมทำไปแล้วนั้นประกอบด้วย
- Combobox 1 คือ Department (คีย์หลัก)
- Combobox 2 คือ Team โดยข้อมูลท ...

snasui wrote: ตัวอย่างสูตรตามด้านล่างครับ

=MID(A1,FIND("&",A1)+1,MIN(SEARCH({",","="},A1&",="))-2)

ขอบคุณนะครับ

ตัวอย่างนะครับ

& AAA ,BBBBBB=CCCCC,DD
& AAAAA =BBBBBB,CCCCCC=DDD

ที่ผมต้องการคือดึงเฉพาะ " AAA " และ " AAAAA " ออกมา

ซึ่งข้อมูลที่ผมมีตอนนี้ประมาณ 500 กว่า บรรทัด และในแต่ละบรรทัดผมต้องการดึงคำเฉพาะที่อยู่ระหว่าง "&" กับ "," หรือ "&" กับ "=" เท่านั้นผมจึงอยากทราบวิธีการเขียนฟังก์ชันที่ครอบคลุมท ...

กระจ่างแจ้งแล้วครับอาจารย์

ขอบคุณอีกครั้งนะครับสำหรับการช่วยเหลือ

อาจารย์ครับ ผมมีเรื่องรบกวนถามอีกแล้วครับ :D

พอดีผมลองนำสูตรที่ได้ไปใส่ไว้ในไฟล์ที่ผมต้องการจะใช้งานแล้ว แต่มันว่ามันไม่สามารถใช้งานได้

รายละเอียดไฟล์ที่ผมทำมีดังนี้ครับ

คือผมจะมีไฟล์นึงคือไฟล์ Compare TSR ไว้สำหรับเป็นตัว Template ที่จะทำการลิงค์ข้อมูลจากไฟล์ TSR_Old และ ไฟล์ TSR_New มาใช้งาน ...

รบกวนอาจารย์ช่วยอธิบายบรรทัดนี้หน่อยนะครับ

ผมไม่ค่อยเข้าใจค่าในวงเล็บครับ

ขอบคุณมากๆเลยนะครับ

สงสัยจบจากงานนี้ผมคงต้องไปซื้อหนังสือ VBA มาอ่านอย่างจริงจังสักที

ไว้คราวหน้าถ้าผมมีอะไรสงสัยผมคงต้องขอรบกวนอีกทีนะครับ

ขอบคุณอีกครั้งนะครับ

Public Sub FixCode()
Dim r As Range
Dim a As String
Set r = .Range("A1:A10")

For Each a In r
If Application.Sum(a.Resize(, 3)) = 0 Then
a.EntireRow.Hidden = True
End If
Next a
End Sub

ตามที่ผมคิดจะประมาณนี้นะครับ

แต่ผมยังงงเรื่องการประกาศตัวแปรอยู่ครับ

แก้ทีไรมันจะฟ้อง error ที่บรรท ...

Public Sub FixCode()
Dim r As Range
For Each r In Range("A1:A10")
If Application.Sum(r.Resize(, 2)) = 0 Then
r.EntireRow.Hidden = True
End If
Next r
End Sub

รบกวนถามอีกนิดนึงครับ

สมมติเปลี่ยนจากตัวเลขเป็น ข้อความ (String) ต้องประกาศตัวแปรหรือแก้สูตรตรงไหนครับ ?

เพราะตอนนี้ถ้าเปลี่ยนจากต ...

ขอโทษด้วยนะครับที่ลืมแนบ code มาด้วย

สำหรับไฟล์ตัวอย่าง ผมได้ทำปุ่มแล้วลิงค์กับ Macro ไว้นะครับ จะได้สะดวกในการดู

ปุ่มสีแดง = module1 เป็น code ที่คุณ snasui ให้มา
ปุ่มสีเหลือง = module2 เป็น code ที่ผมได้ทำการแก้
ปุ่มสีฟ้า = module3 เป็นปุ่มไว้สำหรับ unhide (จะได้สะดวกในการลอง code)


P.S. ผมเพ ...

ขอรบกวนอีกทีนะครับ

เกิดการเข้าใจผิดนิดหน่อยครับ สูตรที่ให้คุณ snasui ให้มาตอนแรกนั้นมันใช้ไม่ได้อ่ะครับ รันแล้วไม่เกิดอะไรขึ้น

ผมเลยลองแก้สูตรบรรทัดนี้ดู

if r = "" Then ผมแก้เป็น if r = 0 Then

ปรากฎว่ามันสามารถใช้ได้ครับ แต่มันมีปัญหาคือ สมมติว่าเซลล์ A1 มีค่าอยู่ แต่เซลล์ B1 ไม่มีค่า (แต่มีสูตร ...

snasui wrote: ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test0()
   Dim r As Range
   For Each r In Range("k1:k15")
        If r = "" Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

ได้แล้วครับ ขอบคุณมากๆเลยนะครับ

จุดประสงค์ของผมคือต้องการ hide row ที่ว่างทั้งหมดในช่วงที่กำหนด

ทีนี้ผมลอง search สูตรจาก Google ดูแล้วนำปรับปรุงนิดหน่อย ปรากฎว่ามันจะ hide เฉพาะ row ที่มีเซลล์เป็นค่าว่างจริงๆเท่านั้น

พวก row ที่ตัวเซลล์ไม่มีค่า แต่มีสูตรอยู่ มันจะไม่ hide ให้

ผมรบกวนขอวิธีที่จะสามารถ hide row ที่ในเซลล์ไม่มีค ...

snasui wrote: จาก B1&"*" หมายถึงค่าใด ๆ ก็ตามที่นำหน้าด้วยค่าใน B1

จากสูตร MATCH(B1&"*",$D$1:$D$8,0) หมายถึง ให้หาว่าค่าใด ๆ ที่นำด้วย B1 มีอยู่ใน $D$1:$D$8 เป็นลำดับที่เท่าใด ถ้าเจอจะแสดงค่าลำดับ ถ้าไม่เจอก็จะแสดงค่าผิดพลาด #N/A

ขอบคุณอีกครั้งนะครับ

snasui wrote: ที่ C1 ลองปรับสูตรเป็นด้านล่างครับ

=IF(ISERROR(MATCH(B1&"*",$D$1:$D$8,0)),"",B1)

ได้แล้วครับ ขอบคุณมากๆเลยครับ

ว่าแต่ช่วยอธิบายสิ่งที่เพิ่มมาหน่อยได้ไหมครับ พอดียังงงๆอยู่

ขออธิบายไฟล์ที่ผมแนบไปก่อนนะครับ

คอลัมน์ A กับ E นี่คือสิ่งที่ผมต้องการนำมาเปรียบเทียบกัน

ทีนี้ข้อความในคอลัมน์ E ส่วนใหญ่มันจะมีเครื่องหมาย & อยู่หน้าเกือบทุกตัว และยังจำนวนอักขระมากกว่าทางคอลัมน์ A ด้วย

ผมเลยใช้คำสั่ง MID ดึงอักขระ ของทั้งคอลัมน์ A และ E ให้มันอยู่ในรูปแบบเดียวกัน ไปใส่ไว้ในคอล ...