對話框

各位前輩你們好!
　　    前輩!問題如附檔案說明
      Sub 註解()
         If Not ActiveCell.Comment Is Nothing Then
            ZZ = InputBox("請輸入附註", , ActiveCell.Comment.Text)
         End If
            On Error Resume Next
            ActiveCell.AddComment
            ActiveCell.Comment.Text Text:=ZZ
      End Sub
      請知道的前輩,不吝賜教謝謝再三!!

Leov16.rar (15.11 KB)

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2010-7-22 22:11 | 顯示全部帖子

回復 3# GBKEE
kimbal前輩你好!
   前輩!謝謝!項目程式你可能誤解,
   這裡是約束對話框只接受文字輸入!
   而註解是在於不留白
   因為空白註解是無異議的
   如良師的程式就是小弟的需求
   謝謝再三!!!

GBKEE前輩你好!
　　　　良師!謝謝!項目程式與小弟的需求
      有出入,當對話框輸入數字時
      應該是Again 而非Exit
      按取消才是離開請再辛苦一下謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2010-7-24 11:32 | 顯示全部帖子

回復 5# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!歹勢啦!之前有改過就是不行
      因為這個(按取消 ->=False)關鍵讓小弟終於想到
      Sub 項目()
      Dim Z, Msg As Boolean
      Again:
         Z = Application.InputBox("請輸入項目名稱", , "早安！", Type:=2)
               For I = 1 To Len(Z)
            If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: '判定是字串
            Next
            If Z < False Then GoTo Again
            If Z >= False Then ActiveCell = Z
            If Z = False Then ActiveCell = ""
            ActiveCell.Offset(, 1).Select
      End Sub
      謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2010-7-26 22:07 | 顯示全部帖子

回復 7# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!辛苦你囉!
歹勢!!請再辛苦一下這個檔案
程式為何?請不吝賜教謝謝再三!!

Leov17.rar (14.44 KB)

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2010-7-27 22:46 | 顯示全部帖子

回復 10# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!程式需求
      Sub 連續()
         Dim F As Range
            With Sheet1
            .Select
            Set F = .Rows(1).Find(Month(Date) & "月", LookIn:=xlValues)
            F(Rows.Count, 1).End(xlUp)(2, 1) = Date
         End With
      End Sub
      但程式並沒有將滑鼠順便帶上日期的位置
      因為滑鼠的位置是執行下個程式的按鈕
      再附檔參考看看請再辛苦囉!!謝謝再三!!

Leov17-1.rar (14.38 KB)