Board logo

標題: 為何日期按了結算 相同時間無法標註 [打印本頁]
作者: afu9240    時間: 2018-2-5 11:31     標題: 為何日期按了結算 相同時間無法標註

[attach]28323[/attach][attach]28323[/attach][attach]28324[/attach][attach]28324[/attach][attach]28324[/attach][attach]28324[/attach]
作者: GBKEE    時間: 2018-2-5 13:16

回復 1# afu9240
了解看看
  1. Sub test20180205()
  2.     Dim bb As String, i As Integer
  3.     bb = Cells(1, 13).Text
  4.     For i = 1 To 200
  5.         Debug.Print Cells(1, 13), Cells(1, 13).Text, Cells(i, 9)
  6.         Debug.Print TypeName(Cells(i, 9)), TypeName(Cells(i, 9).Text)
  7.         If Cells(i, 9) = bb Then Cells(i, 9).Interior.Color = vbGreen
  8.     Next
  9. End Sub
複製代碼
作者: afu9240    時間: 2018-2-5 13:22

回復 2# GBKEE

感謝G大幫忙!感激不盡
          想跟G大請教,這兩段Code的意思是在說明什麻呢??

            Debug.Print Cells(1, 13), Cells(1, 13).Text, Cells(i, 9)
            Debug.Print TypeName(Cells(i, 9)), TypeName(Cells(i, 9).Text)
作者: GBKEE    時間: 2018-2-5 13:35

本帖最後由 GBKEE 於 2018-2-5 13:36 編輯

回復 3# afu9240

可查看 數值哪裡錯了
  [attach]28327[/attach]
作者: afu9240    時間: 2018-2-7 17:15

回復 4# GBKEE

G大 不好意思
想跟你請教為何 SpinButton1.Value與表單號碼與實際內容會不一樣??,,,,另外像請教有辦法同一個單號的資料同時出現在TEXTBOX裡嗎???

[attach]28343[/attach][attach]28341[/attach]
作者: GBKEE    時間: 2018-2-7 18:38

回復 5# afu9240
  1. Option Explicit
  2. Private Sub UserForm_Initialize()
  3.     Spinbutton
  4. End Sub
  5. Private Sub Spinbutton()  '設定 最大值最小值
  6.     With SpinButton1
  7.         .Max = Sheets("清單").Range("a" & Rows.Count).End(xlUp).Row
  8.         .Min = 2
  9.         .Enabled = .Max > 1  '1=沒有資料
  10.     End With
  11. End Sub
  12. Private Sub SpinButton1_Change()
  13.     Dim xx As Integer
  14.     xx = SpinButton1
  15.     Label51.Caption = xx - 1
  16.    
  17.     TextBox87.Text = Sheets("清單").Cells(xx, 1)
  18.     ComboBox21.Value = Sheets("清單").Cells(xx, 2)
  19.     TextBox85.Text = Sheets("清單").Cells(xx, 3)
  20.     TextBox86.Text = Sheets("清單").Cells(xx, 4)
  21.     TextBox53.Text = Sheets("清單").Cells(xx, 5)
  22.     TextBox59.Text = Sheets("清單").Cells(xx, 6)

  24.     TextBox79.Text = Sheets("清單").Cells(xx, 7)
  25.     ComboBox27.Value = Sheets("清單").Cells(xx, 8)
  26.     TextBox71.Text = Sheets("清單").Cells(xx, 9)
  27. End Sub
複製代碼
作者: afu9240    時間: 2018-2-8 09:54

回復 6# GBKEE

G大 感謝您的協助,長知識~
   另外請教G大, 有辦法同一個單號的購買物品  統一顯示在表單上嗎??[attach]28346[/attach][attach]28346[/attach][attach]28346[/attach][attach]28346[/attach]
作者: GBKEE    時間: 2018-2-8 14:47

回復 7# afu9240
你這表單的[資料瀏覽]頁 瀏覽後有要修改資料嗎?
作者: afu9240    時間: 2018-2-8 16:16

回復 8# GBKEE

要修改~~^^
作者: afu9240    時間: 2018-2-9 11:44

回復 9# afu9240

G大您好
  
    我最主要就是希望在瀏覽時能將同一樣表單號碼的資料帶進表單內,我試過好像不行,好像無法連接表單號碼 同時SHOW出,所以想求助G大,
[attach]28350[/attach]

附上檔案內容~~
作者: GBKEE    時間: 2018-2-9 14:44

回復 10# afu9240

[attach]28354[/attach]

先從 [資料瀏覽] 修改,
作者: afu9240    時間: 2018-2-12 10:38

回復 11# GBKEE
感謝 G大回復
  G大是用廠商 來控制帶出資料,我研究兩天還是無法以單號去控制SHOW出,><"
作者: GBKEE    時間: 2018-2-12 16:26

回復 12# afu9240



試試看
    [attach]28363[/attach]
作者: afu9240    時間: 2018-2-12 16:39

回復 13# GBKEE


    G大: 真的太強了~~~我好崇拜阿~~~~~~~~~~~~~~~~~~~~~~~~~~~我要繼續在贊助論壇...

   LSITBOX好像就無法將資料丟回去 各項付款申請單了~~
作者: afu9240    時間: 2018-3-7 17:25

[attach]28413[/attach][attach]28413[/attach]回復 13# GBKEE


    [attach]28414[/attach]

G大  您好
                首先先感謝G大提供Code分享,但我將G大的Code另使用在其他excel檔,資料瀏覽功能好像無法使用,是我能出錯嗎???~可以協助處理嗎??感恩



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