如何將從用戶表單輸入的數據放入Excel文件的特定表單中？

-1

我被困在這一個。我無法真正確定問題？我有這些代碼，它似乎不工作。有人可以幫我調試這個嗎？您的答案將不勝感激！謝謝！ :)如何將從用戶表單輸入的數據放入Excel文件的特定表單中？

Private Sub cmdIn_Click() 

    Dim DateToday As Date 
    Dim WeekdayToday As String 
    Dim Name As String 

    Dim ws As Worksheet 
    Set ws = Worksheets("Sept 14 - Sept 20") 
    ws.Activate 'this will activate the worksheet that you will be working on 

    DateToday = DateValue(Now) 
    WeekdayToday = WeekdayName(Weekday(DateToday)) 
    Name = txtNickname.Value 

     If Name = jane Then 
      Select Case WeekToday 
       Case Is = "Sunday" 
        ws.Range("B7") = Val(lblTime.Caption) 
       Case Is = "Monday" 
        ws.Range("F7") = Val(lblTime.Caption) 
       Case Is = "Tuesday" 
        ws.Range("J7") = Val(lblTime.Caption) 
       Case Is = "Wednesday" 
        ws.Range("R7") = Val(lblTime.Caption) 
       Case Is = "Thursday" 
        ws.Range("T7") = Val(lblTime.Caption) 
        'ws.[T7].Value = Val(lblTime.Caption) 
       Case Is = "Friday" 
        ws.Range("V7") = Val(lblTime.Caption) 
       Case Is = "Saturday" 
        ws.Range("Z7") = Val(lblTime.Caption) 
      End Select 
    End If 

End Sub

來源

2014-09-11 xtina1231

你在使用VBA還是VB.Net？究竟是什麼問題？就像是它給出了一些錯誤信息或異常？ – pareto 2014-09-11 04:38:18

WeekdayToday或WeekToday？幫你一個忙，並且總是在每個模塊的頂部使用Option Explicit .... – 2014-09-11 04:40:53

好的。這是注意到的。今天是星期幾。 :) – xtina1231 2014-09-11 05:20:31

你好先生兩個問題選擇案例WeekToday應選擇案例WeekdayToday和如果name =珍應該是如果NAME =「簡」見下面的代碼是固定的。

 Dim DateToday As Date 
     Dim WeekdayToday As String 
     Dim Name As String 

     Dim ws As Worksheet 
     Set ws = Worksheets("Sept 14 - Sept 20") 
     ws.Activate 'this will activate the worksheet that you will be working on 

     DateToday = DateValue(Now) 
     WeekdayToday = WeekdayName(Weekday(DateToday)) 
     Name = txtNickname.Value 

    'Fixed jane to "jane" 
      If Name = "jane" Then 
'Fixed WeedTodays to WeekdayToday. 
       Select Case WeekdayToday 
        Case Is = "Sunday" 
         ws.Range("B7") = Val(lblTime.Caption) 
        Case Is = "Monday" 
         ws.Range("F7") = Val(lblTime.Caption) 
        Case Is = "Tuesday" 
         ws.Range("J7") = Val(lblTime.Caption) 
        Case Is = "Wednesday" 
         ws.Range("R7") = Val(lblTime.Caption) 
        Case Is = "Thursday" 
         ws.Range("T7") = Val(lblTime.Caption) 
         'ws.[T7].Value = Val(lblTime.Caption) 
        Case Is = "Friday" 
         ws.Range("V7") = Val(lblTime.Caption) 
        Case Is = "Saturday" 
         ws.Range("Z7") = Val(lblTime.Caption) 
       End Select 
     End If 
    End Sub

來源

2014-09-11 04:57:58 Dmcovey1993

我有另一個問題.. – xtina1231 2014-09-11 07:29:12

是嗎？大聲笑，如果這爲你工作，你可以接受答案 – Dmcovey1993 2014-09-12 21:30:24

如何將從用戶表單輸入的數據放入Excel文件的特定表單中？

回答

相關問題