宏MS Word和Excel彈出消息框中有複選框

-1

我在Word和Excel中不是新的Marco。我通過使用記錄做簡單的宏。但我想增強一些我的任務，並將其放在一樣容易。宏MS Word和Excel彈出消息框中有複選框

我的問題是查找和替換一些文本字符。我在屏幕上粘貼了這個粘滯便箋，並手動複製並粘貼到查找並替換「Ctrl + H」。

我想要的是儘量減少它，因爲我得到了很多報告，需要運行這個特定的查找和替換任務。

但我遇到了麻煩，如何使彈出消息框，將有一個複選框，所以我可以運行所有查找和替換。

我附上一個圖像文件供參考，我希望它在Excel和Word中。 Please Click here for image.

來源

2017-01-17 P.Alvs

你就不能使用'MsgBox'的複選框，看看用戶窗體！ ;） – R3uK

在excel的情況下，也許它會很難，所以也許我只是將它保存.xlsm，所以我只要打開它，只要我使用宏。 –

這裏是使用VBA替換單詞的想法。我提供的示例代碼接收一組您希望替換的單詞，並用第二個數組的單詞替換它們。這可以讓你找到幾個單詞和一次，並一次全部替換它們。你也可以進一步做一個輸入框或窗體來加載數組。

Sub Example1() 

Dim sht As Worksheet 
Dim fndList As Variant 
Dim rplcList As Variant 
Dim x As Long 

fndList = Array("hi", "United States", "Mexico") 
rplcList = Array("hello", "USA", "MEX") 

'Loop through each item in Array lists 
    For x = LBound(fndList) To UBound(fndList) 
    'Loop through each worksheet in ActiveWorkbook 
     For Each sht In ActiveWorkbook.Worksheets 
     sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _ 
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
      SearchFormat:=False, ReplaceFormat:=False 
     Next sht 

    Next x 

End Sub

來源

2017-01-17 15:29:09 Brad

你可以檢查我的作品嗎？我附上了我的作品的一些圖像。 –

如果你想使一個用戶窗體與複選框，創建一個用戶窗體添加一個模塊的相同方式 - >項目窗口，右鍵單擊，添加用戶窗體。然後點擊「工具箱」圖標並選擇一個複選框，您可以在用戶窗體中找到該複選框。

加上一些YouTube視頻： https://www.youtube.com/watch?v=5oXcct1mOUw

編輯，可以說你有一個按鈕，並在窗體的複選框。這是用戶表單中的代碼。

該按鈕的名稱是cmd_Calculator; 複選框的名稱是chb_new

Private Sub cmd_Calculator_Click() 

    If Me.chb_new Then 
     MsgBox "Checkbox is selected." 
    Else 
     MsgBox "Checkbox is not selected." 
    End If 

End Sub

來源

2017-01-17 15:33:03 Vityata

嗨，我最近應用您的所有評論，我可以知道按鈕的工作原理？你能看到我附加的圖像進行一些審查。 http://imgur.com/a/0ODuf和http://imgur.com/a/U4YXU –

編輯後再試一次。 – Vityata

嗨，對不起，我不明白我應該粘貼在替換按鈕？我是否也知道取消按鈕的代碼？ –

宏MS Word和Excel彈出消息框中有複選框

回答

相關問題