Board logo

標題: [發問] 請問有關表單查詢問題 [打印本頁]
作者: afu9240    時間: 2018-10-4 16:33     標題: 請問有關表單查詢問題

各位大大及超強版主好
              附件查詢部分 員工姓名欄輸入"劉德華",會在sheets2顯示資料,但A欄~D欄的資料卻無法顯示,,,,有高手可以解惑嗎????非常感恩  謝謝

     [attach]29500[/attach]
作者: GBKEE    時間: 2018-10-5 06:06

回復 1# afu9240
  1. Private Sub CommandButton3_Click() '查詢
  2.     Dim a As Range
  3.     Dim r As Integer, i As Integer, j As Integer
  4.     If TextBox12.Text = "" Then
  5.         MsgBox "請輸入正確的值"
  6.         Exit Sub
  7.     End If
  8.     Application.ScreenUpdating = False
  9.     ListBox1.Clear
  10.     Worksheets("工作表2").Range("A:P").ClearContents
  11.     With Worksheets("工作表1")
  12.         r = Application.CountA(.Range("E:E"))
  13.         For Each a In .Range("E1:E" & r)
  14.             If InStr(1, a, TextBox12, vbTextCompare) Then
  15.                 With ListBox1
  16.                     .AddItem
  17.                     i = .ListCount
  18.                     For j = 0 To 9 '沒有跳位可不必Step 1 ' For j = 9 To 0 Step -1 才需要
  19.                         .List(i - 1, j) = a.Offset(, j)
  20.                     Next
  21.                 End With
  22.                 Worksheets("工作表2").Cells(i, 1).Range("A1:N1") = .Cells(a.Row, 1).Range("A1:N1").Value
  23.         End If
  24.     Next
  25.     End With
  26.     Application.ScreenUpdating = True
  27. End Sub
複製代碼
作者: hcm19522    時間: 2018-10-5 15:09

工作表2  B1右拉下拉{=INDEX(工作表1!F:F,SMALL(IF(工作表1!$E$2:$E$13=$A$1,ROW($2:$13),4^8),ROW(A1)))&""
作者: afu9240    時間: 2018-10-7 14:32

回復 2# GBKEE


   感謝G大版主 得回覆  感謝*100000
作者: afu9240    時間: 2018-10-11 16:46

回復 2# GBKEE

G大版主 您好  

   不好意思,想再請教您一個問題~~~如下圖~~要如何做單一項目做修改儲存(附上檔案,  疑惑中 請協助~~謝謝
[attach]29520[/attach]

[attach]29521[/attach]
作者: afu9240    時間: 2018-10-11 16:59

不好意思  我已經解決了
作者: GBKEE    時間: 2018-10-13 08:51

回復 6# afu9240
還有進步空間
努力加油
  1. Option Explicit
  2. Dim strx As Integer, MyData As Worksheet
  3. Private Sub MultiPage1_Change()
  4.     If MultiPage1.SelectedItem.Index = 2 Then
  5.         With SpinButton1
  6.             .Enabled = .Min > 0
  7.             If .Min = 0 Then MsgBox "資料庫是空的!!!!"
  8.             '可將 財產編號下的資料移空看看
  9.         End With
  10.     End If
  11. End Sub
  12. Private Sub SpinButton1_Change()
  13.     Dim Ar, i As Integer
  14.     With SpinButton1
  15.         If .Min = 0 Then Exit Sub
  16.         Ar = Array(14, 2, 1, 3, 4, 5, 6, 7, 11, 8, 9, 12, 10)
  17.         For i = 0 To UBound(Ar)
  18.             Controls("l" & i + 1).Caption = MyData.Cells(.Value, Ar(i))
  19.         Next
  20.         Label46.Caption = "第 " & .Value - 1 & " 筆" & IIf(.Value = .Max, " - 最後一筆了", "")
  21.     End With
  22. End Sub
  23. Private Sub UserForm_Activate()
  24.     MultiPage1_Change
  25. End Sub
  26. Private Sub UserForm_Initialize()
  27.     Set MyData = Sheets("工作表1")
  28.     With MyData.Range("A1").End(xlDown)
  29.         If .Row = Rows.Count Then
  30.              SpinButton1.Min = 0
  31.         Else
  32.             SpinButton1.Min = 2
  33.             SpinButton1.Max = .Row
  34.             SpinButton1.Value = SpinButton1.Min
  35.         End If
  36.     End With
  37.     ListBox1.ColumnCount = 10
  38.     ListBox1.ColumnWidths = "50,50,50,50,70,70,70,70,70,70"
  39.     ComboBox1.List = Array("人力資源部", "資訊服務部", "音響資材部", "音響業務部", "技術部" _
  40.     , "電子研發部", "音響機構部", "音響客服", "廠務", "財務部", "稽核", "總經理室")
  41.    
  42.    '*************以下自己試試看 **********
  43. End Sub
複製代碼
作者: afu9240    時間: 2018-10-14 10:07

回復 7# GBKEE


    感謝G大鼓勵與回復~~~我會努力的  謝謝
作者: afu9240    時間: 2019-6-6 16:27

回復 2# GBKEE

G大您好
        如果欄位超過10個會顯示下方圖樣問題~~,,有辦法處理嗎???感謝*1000
[attach]30785[/attach][attach]30786[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)