สอบถามเกี่ยวกับการสร้างฟอร์มครับ

[snasui]

หลักการคือให้สร้างตัวแปรที่นับเฉพาะเซลล์ที่ไม่เป็นค่าว่าง สามารถใช้สูตรนับเซลล์ที่ไม่ว่างเช่น

=Countif(A:A,"<>")

เพื่อจะนับว่าค่าที่ไม่ว่างมีเท่าไร ให้เอามาใส่ใน ListBox เพียงเท่านั้น

[yodpao.b]

=Countif(A:A,"<>")

ไม่เข้าใจครับอาจาร์ย
ผมได้แนบไฟล์มาให้ครับ
ขอร้องอาจาร์ยช่วยแก้ให้หน่อยนะครับ
ส่วนคำถามแรกแก้ปัญหาได้แล้วครับ

[snasui]

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

[yodpao.b]

ฟอร์มตัวนี้เอาไว้โชว์เป็นรายงานเฉยครับ
แสดงค่าอย่างเดียว
แต่ไม่ให้แสดงวงกลมที่ไม่ใช้

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
    'On Error Resume Next
    'Call MacroScreenUpdat_F
    'Call UnProtectAllSheets

    Sheets("ReportReturn").Select
    TB21.Text = Sheets("ReportReturn").Range("C7")
    
    With Me.ListBox1
        .BoundColumn = 1
        .ColumnCount = 8
        .ColumnHeads = True
        .TextColumn = True
        If Range("C9") = "" Then
            .RowSource = "ReportReturn!C9:N9"
        Else
            .RowSource = "ReportReturn!C9:N" & Application.Match( _
                9.99999999999999E+307, Sheets("ReportReturn") _
                .Range("N1:N" & Rows.Count)) 'xlLastRow("ReportReturn")
        End If
        .ListStyle = fmListStyleOption
        .ListIndex = 0
    End With
    
End Sub

[yodpao.b]

ขอบคุณมากครับอาจาร์ยวงกลมไม่โชว์แล้วครับ
วันนี้ขอถามอีก 2 ข้อนะครับได้แล้ว ผมจะได้เริ่มเขียน ฟอร์มที่ใช้ Listbox

ข้อที่ 1 ในการมาร์คในวงกลม แล้วให้เอาชื่อมาโชว์ใน Textbox ดังรูป

Untitled21.gif

ข้อที่ 2 นำบรรทัดข้อมูลที่มาร์ค คัดลอกไปที่ Sheet2

ขอบคุณครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub ListBox1_Change()
    Dim SourceRange As Excel.Range
    Dim Val1 As String, Val2 As String, Val3 As String

    If (ListBox1.RowSource <> vbNullString) Then
        'Get Range that the ListBox is bound to
        Set SourceRange = Range(ListBox1.RowSource)
    Else
        'Get first data row
        Set SourceRange = Range("Sheet1!A2:C2")
        Exit Sub
    End If
    
    Val1 = ListBox1.Value
    'Get the value of the second column
    Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
    'Get the value of the third column
    Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value

    'Concatenate the three values together and display them in Label1
    'Label1.Caption = "Selected Data: " & vbNewLine & Val1 & " " & Val2 & " " & Val3
    With UserForm1
        .TextBox1 = Val1
        .TextBox2 = Val2
        .TextBox3 = Val3
        .TextBox11 = Val1
    End With
    
    'Clean Up
    Set SourceRange = Nothing
End Sub

[yodpao.b]

ขอบคุณมากครับอาจาร์ย เดี๋ยวขอทดลองใช้ก่อน
อาจาร์ยอย่าลืมข้อ 2 นะครับ(ไม่ได้เขียน Code อะไรเลย)เพราะไม่เข้าใจ

[snasui]

ข้อสองลองสังเกตว่าผมนำค่าเข้าไปไว้ใน TextBox แต่ละอันได้อย่างไร แล้วลองประยุกต์วิธีนั้นไปใช้กับ Sheet2 ติดตรงไหนก็แนบ Code ที่ปรับเองแล้วมาถามกันครับ

[yodpao.b]

ครับผมวันพร่งนี้ผมจะรองนำไปประยุกต์ดูครับ