返回列表 上一主題 發帖

為何日期按了結算 相同時間無法標註

為何日期按了結算 相同時間無法標註

20180205.JPG
2018-2-5 11:30
年假結算提醒.zip (26.84 KB)
yvonne

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 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)
yvonne

TOP

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

回復 3# afu9240

可查看 數值哪裡錯了
  
未命名.jpg
2018-2-5 13:35
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 4# GBKEE

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

各項付款申請單.zip (965.86 KB)
20180206.jpg
2018-2-7 17:12
yvonne

TOP

回復 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)

  23.     TextBox79.Text = Sheets("清單").Cells(xx, 7)
  24.     ComboBox27.Value = Sheets("清單").Cells(xx, 8)
  25.     TextBox71.Text = Sheets("清單").Cells(xx, 9)
  26. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 6# GBKEE

G大 感謝您的協助,長知識~
   另外請教G大, 有辦法同一個單號的購買物品  統一顯示在表單上嗎??
20180208.jpg
2018-2-8 09:54
yvonne

TOP

回復 7# afu9240
你這表單的[資料瀏覽]頁 瀏覽後有要修改資料嗎?
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 8# GBKEE

要修改~~^^
yvonne

TOP

回復 9# afu9240

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

附上檔案內容~~

各項付款申請單.zip (1008.45 KB)

yvonne

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題