Board logo

標題: 美化提示訊息 [打印本頁]
作者: myleoyes    時間: 2014-3-30 22:04     標題: 美化提示訊息

各位前輩你們好!!   
      問題如附檔說明
      請知道的前輩,不吝賜教謝謝再三!!
作者: owen06    時間: 2014-3-31 09:15

回復 1# myleoyes
  
用  & chr(10) & 可以讓msgbox裡的文字自動換行
  1. Sub Msg()
  2.     MsgBox ("") & Sheet3.[B1].Text & ":" & Chr(10) & _
  3.          " ＃投資額" & Sheet3.[C1].Text & Chr(10) & _
  4.          " ＃配息" & Sheet3.[M1].Text & Chr(10) & _
  5.          " ＃損益" & Sheet3.[N1].Text & Chr(10) & _
  6.          " ＃報酬率" & Sheet3.[O1].Text & Chr(10) & _
  7.          " ＃管理費" & Sheet3.[AC1].Text & Chr(10) & _
  8.          " ＃手續費" & Sheet3.[G1].Text & Chr(10) & _
  9.     Sheet4.[A1].Text & ":" & Chr(10) & _
  10.          " ＃投資額" & Sheet4.[B2].Text & Chr(10) & _
  11.          " ＃配息" & Sheet4.[i8].Text & Chr(10) & _
  12.          " ＃損益" & Sheet4.[E4].Text & Chr(10) & _
  13.          " ＃報酬率" & Sheet4.[F4].Text & Chr(10) & _
  14.          " ＃管理費" & Sheet4.[H7].Text & Chr(10) & _
  15.          " ＃手續費" & Sheet4.[F2].Text
  16. End Sub
複製代碼
作者: myleoyes    時間: 2014-3-31 21:51

回復 2# owen06
前輩!謝謝!!
          有一問題再請教小弟想加入一個時間
          讓MsgBox自動關閉而非手動關閉
          Application.OnTime Now + TimeValue("00:00:05"), "自動關閉"
          請知道的前輩,不吝賜教謝謝再三!!
作者: GBKEE    時間: 2014-4-1 06:26

回復 3# myleoyes
  1. Sub MsgBox_Wait()
  2. Dim WshShell, BtnCode
  3. Set WshShell = CreateObject("WScript.Shell")
  4. BtnCode = WshShell.popup("等待2秒不按我就自動關閉?", 2, "測試:", 4 + 16)
  5. Select Case BtnCode
  6.    Case 6
  7.    BtnCode = "你按了""是""." 'MsgBox "你按了""是""."
  8.    Case 7
  9.    BtnCode = "你按了""否""." 'MsgBox "你按了""否""."
  10.    Case -1
  11.    BtnCode = "沒有按任何鍵"
  12. End Select
  13. BtnCode = WshShell.popup(BtnCode, 2, "測試完畢", 1)
  14. End Sub
複製代碼
作者: myleoyes    時間: 2014-4-1 22:48

回復 4# GBKEE
良師!謝謝!
         另有一問題如附檔說明
         請不吝再賜教辛苦囉謝謝再三!!
作者: GBKEE    時間: 2014-4-2 06:31

回復 5# myleoyes
  1. Option Explicit
  2. Sub Msg()
  3.     Dim WshShell As Object, BtnCode As String, A As String, B As String, i As Integer, ii As Integer
  4.     '變數的設定最好置於程式碼的前端以便程式的偵錯
  5.     Set WshShell = CreateObject("WScript.Shell")
  6.     A = Sheet2.[D1].FormulaR1C1
  7.     B = Sheet2.[E1].FormulaR1C1  '=-33+20+5+543+22-60+300-99-96-33+20+5
  8.     For i = 3 To Len(A) '公式的開頭會是 =- 所以 i 從 3 開始
  9.         If Not Mid(A, i, 1) Like "[0-9]" Then ii = ii + 1 '不是數字加 1
  10.         If ii = 2 Then A = Mid(A, 2, i - 2): Exit For
  11.     Next
  12.     ii = 0 '歸零
  13.     For i = 3 To Len(B)
  14.         If Not Mid(B, i, 1) Like "[0-9]" Then ii = ii + 1
  15.         If ii = 2 Then B = Mid(B, 2, i - 2): Exit For
  16.     Next
  17.     BtnCode = " 此次作多損益" & A & Chr(10) & " 此次作空損益" & B
  18.     BtnCode = WshShell.popup(BtnCode, 2, "損益對帳訊息！！", 0)
  19. End Sub
複製代碼
作者: myleoyes    時間: 2014-4-2 21:22

回復 6# GBKEE
良師!辛苦囉謝謝再三!!



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