對話框 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 對話框

返回列表下一主題上一主題發帖

對話框

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^# 跳轉到 »

發表於 2010-7-23 15:27 | 只看該作者

有出入,當對話框輸入數字時
應該是Again 而非Exit
按取消才是離開myleoyes 發表於 2010-7-22 22:11

應該是Again 那就使用 Go To Again
按取消 ->=False 你可以試著修改啊

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2010-7-22 22:11 | 只看該作者

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

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-7-22 16:21 | 只看該作者

回復 1# myleoyes

Sub 項目()
Dim Z, Msg As Boolean
Z = Application.InputBox("請輸入項目名稱", , "早安！", Type:=2)
If Z <> False Then
Msg = False
For I = 1 To Len(Z)
If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: Exit For '判定是字串
Next
If Msg Then
ActiveCell = Z
Else
ActiveCell = ""
End If
ElseIf Z = False Then
ActiveCell = ""
End If
ActiveCell.Offset(, 1).Select
End Sub
Sub 註解()
If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment
ZZ = InputBox("請輸入附註", , ActiveCell.Comment.Text)
If ZZ = "" Then ActiveCell.Comment.Delete: Exit Sub
ActiveCell.Comment.Text Text:=ZZ
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2010-7-22 14:04 | 只看該作者

各位前輩你們好!
　　    前輩!問題如附檔案說明
      Sub 註解()
         If Not ActiveCe ...
myleoyes 發表於 2010-7-22 08:12

問題一:
你的意思是如果項目有東西, 就顯示原來的對吧?
首先在Worksheet_SelectionChange解除一下

If Target(1) = "" Then 項目
end if

複製代碼

直接運

項目

複製代碼

然後把項目改成以下的

Sub 項目()
Dim Z As string
If ActiveCell <> "" Then
z = ActiveCell
Else
z = "早安！"
End If
Z = ActiveCell.value
Z = Application.InputBox("請輸入項目名稱", , z, Type:=2)
ActiveCell.value = z
ActiveCell.Offset(, 1).Select
End Sub

複製代碼

問題二: (小弟午飯時間快過

, 暫提供代碼, 有需要的話今晚再解釋解釋)

Sub 註解()
If Not ActiveCell.Comment Is Nothing Then
ZZ = InputBox("請輸入附註", , ActiveCell.Comment.Text)
Else
ZZ = InputBox("請輸入附註", , "")
ActiveCell.AddComment
End If
ActiveCell.Comment.Text Text:=ZZ
End Sub

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

靜思自在 : 知識要用心體會，才能變成自己的智慧。

返回列表下一主題上一主題