1樓：魚木混豬喲
excel中vba程式可以根據要求編寫**，實現自動輸入想要的內容。
軟體版本：office2007
舉例說明如下：
1.利用vba在a列中依次輸入1-100的數字：
2.alt+f11，輸入**如下：
**解釋：通過變數i從1到100迴圈，依次在對應的a列行數為i的單元格中輸入數值i
3.f5執行**，得到結果如下：
2樓：慶年工坊
sub s()
n = cells(rows.count, 3).end(3).row
if cells(n, 6) < 9 thencells(n, 6) = cells(n, 6) + 1else
cells(n, 6) = 0
if cells(n, 5) < 9 thencells(n, 5) = cells(n, 5) + 1else
cells(n, 5) = 0
if cells(n, 4) < 9 thencells(n, 4) = cells(n, 4) + 1else
cells(n, 4) = 0
if cells(n, 3) < 9 thencells(n, 3) = cells(n, 3) + 1else
cells(n, 3) = 0
end if
end if
end if
end if
end sub
請教大蝦，excel如何利用vba滿足條件時在某單元格自動輸入內容？
3樓：平陽虎
sub 輸入()
if [a2] <> [a1] then [a3] = 0
end sub
excel vba 當有公式的單元格錄入內容後，自動將內容貼上為數值
4樓：
將以下**，貼上到該表的**窗格中（注意！！！）
5樓：匿名使用者
可利用工作表事件，複製如下**在所要實現目標的sheet中。
private sub worksheet_change(byval target as range)
target.copy
target.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=falseend sub
excel vba 當單元格輸入指定內容時，自動記錄當前時間
6樓：
把下列**貼上到工作表**窗格中
7樓：平陽虎
sub 輸入當前時間()
if cells(6, 6) = "→" then cells(6, 3) = now else cells(6, 3) = ""
end sub
在excel裡如何用vba實現向任意一個單元格輸入內容，再進行任意操作後，再向同一單元格輸入內容，會隔開
8樓：匿名使用者
private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
if target.value <> "" and right(target, 1) <> "/" then
target.value = target.value & "/"
end if
end sub
你試試，看看是不是你要的效果。
9樓：萬年金剛鑽
**不難。但是，有一個問題需要你考慮：
當你原來的資料是「xyz」，在你選中這個單元格，然後又輸入」xyz「時，你怎麼判斷
這是【再次輸入」xyz「從而得到」xyz/xyz「】；
還是單元格沒有變化依然是原本的【「xyz」】？
下面這段**是為你的設想製作的。
保留了清除單元格的選擇。。不過沒有對作用區域做設定
10樓：匿名使用者
比如 你想想a1 單元格 輸入 某個內容 那麼 你可以 ……不知道 你想怎樣 輸入……
不過 你每次 向 a1 賦值的時候 可以這樣……range("a1")=range("a1") &"/"& xx 是你每次要輸入的內容……
11樓：
輸入內容與任意操作都是vba做的話，是可行的
12樓：匿名使用者
a1=155 557 就 按時 685（任意文字+數值都可）輸入公式b1=substitute(a1, " ", "/")往下拖動。
公式意思就是**內單元格里的一個空格置換成/ 。
如何怕錯誤，你可以改成置換兩個空格。
你每次在輸入資料前按一下空格（或2個空格），b列自動程式設計155/557/就/按時/685
或者你還想要其他效果？
excel vba 如何實現輸入自動替換
13樓：廈門侯玩轉電子科技
一、快捷方式：按ctrl+f開啟「查詢和替換」對話方塊並啟用「查詢」選項卡，按ctrl+h開啟「查詢和替換」對話方塊並啟用「替換」選項卡。
二、使用萬用字元：
在excel的查詢和替換中使用星號「*」可查詢任意字串，例如 查詢「excel* 」可找到「excel函式」和「excel公式」等。 使用問號可查詢任意單個字元。例如 查詢「vb?
」 可找到「vba」和「vbe」等。
三、查詢萬用字元：
如果在excel中要查詢萬用字元，可以輸入「~*」、「~?」。「~」為波浪號，在數字鍵「1」的左邊。如果要查詢「~」，則輸入兩個波浪號「~~」。
四、在指定的區域中查詢：
先選定一個區域，再開啟「查詢和替換」對話方塊，則查詢的範圍僅限於選定的區域。
五、在整個工作簿中進行查詢：
在「查詢和替換」對話方塊中單擊「選項」按鈕，在「範圍」右側的下拉選單中選擇「工作簿」，則excel會在工作簿中的所有工作表中進行查詢。
六、在工作組中進行查詢：
如果僅選擇了工作簿中的部分工作表，這些工作表將成為一個工作組，excel會僅在這些工作表中進行查詢。
七、按單元格格式查詢：
單擊「查詢和替換」對話方塊中「格式」按鈕右側的小箭頭，在彈出的下拉選單中選擇「從單元格選擇格式」，然後選擇一個包含所需查詢格式的單元格，即可按選定的格式進行查詢。
八、按shift鍵反方向查詢：
當在「查詢和替換」對話方塊中單擊「查詢下一個」按鈕時，excel會按照某個方向進行查詢。如果在單擊「查詢下一個」按鈕前，按住shift鍵，excel將按照與原查詢方向相反的方向進行查詢。
九、在關閉「查詢和替換」對話方塊後繼續查詢下一個：
在查詢過程中，有時「查詢和替換」對話方塊遮住了部分**內容。在關閉「查詢和替換」對話方塊後也可以繼續查詢下一個內容，方法是先進行一次查詢，然後關閉「查詢和替換」對話方塊，按快捷鍵shift+f4即可繼續查詢下一個。
14樓：匿名使用者
private sub worksheet_change(byval target as range)
if target.column = 1 thenselect case target.valuecase 1
target = "王五"
case 2
target = "趙六"
end select
end if
end sub
'使用說明
'按alt+f11，在左側雙擊你的工作表，把**貼到右邊的視窗即可
15樓：方括號
只有這兩種情況？不用vba也能實現。
即a列設定自定義格式：[=1]"王五";[=2]"趙六";
16樓：匿名使用者
三樓 方括號 的方法很好:
選擇a列:定義格式：[=1]"張三";[=2]"李四";
選擇b列:定義格式：[=1]"王五";[=2]"趙六";
選擇c列:定義格式：[=1]"陳七";[=2]"周八";
用vba造成的影響:以後你開啟該程式時要求巨集安全性設定為"中"以下,否則會失效!(第一次沒問題)
如果你非要用vba,切忌放在change事件**裡實現(就象樓上幾位的做法):
它對excel的最得意的一些功能造成致命的影響。
你可以執行下面的**：
range("a:a").numberformatlocal = "[=1]""張三"";[=2]""裡四"""
range("b:b").numberformatlocal = "[=1]""王五"";[=2]""趙六"""
range("c:c").numberformatlocal = "[=1]""陳七"";[=2]""周八"""
它不會excel的功能造成影響，而且可以實現功能。
實現方法是:工具→巨集→巨集:隨便輸個巨集名(如aaa) :建立
然後把**粘進去,按f5執行即可
另外,附:自定義單元格格式的詳細方法
選中要設定的單元格:格式→單元格→數字→自定義:在型別欄輸入前幾行提到的內容(如：[=1]"張三";[=2]"李四"; )
樓主不會把 自定義單元格格式 與 自動更正 弄混吧?
17樓：匿名使用者
可以放到**視窗的thisworkbook裡
private sub worksheet_change(byval target as range)
if target.column = 1 then '1=張三、2=李四；b列 1=王五、2=趙六；c列 1=陳七、2=周八
if target.value = "1" then target.value = "張三"
else
if target.value = "2" then target.value = "李四"
else: exit sub
else
if target.column = 2 then
if target.value = "1" then target.value = "王五"
else
if target.value = "2" then target.value = "趙六"
else: exit sub
else
if target.column = 3 then
if target.value = "1" then target.value = "陳七"
else
if target.value = "2" then target.value = "周八"
else: exit sub
else: exit sub
end sub
18樓：匿名使用者
三樓的高手，方法很簡單，學到知識了！！
用vba實現在**中輸入內容後，自動去另一個excel表內尋找符合要求的內容並輸出 20
19樓：匿名使用者
這個要用sql 來做
20樓：太極健
你是說兩個工作簿？還是兩個工作表？
excel求助各位大神如何根據所輸入內容，製作下拉選單
用名稱處理吧 定義名稱 車號 定義名稱 1號車 至 3號車 值範圍為車號對應的師傅 車號列資料有效性 車號，姓名列資料有效性 indirect 前一單元格 注意單元格的引用不要用絕對引用 3.1 演員表3.2 職員表4 角色介紹5 獲獎記錄6 幕後製作7 製作發行 excel如何實現既可以自行輸入又...
怎樣在excel中新增斜線表頭輸入內容
wps官方 以wps 2019版本為例 關於怎樣在excel中新增斜線表頭輸入內容，我們推薦您可使用wps2019完成，步驟如下 開始 工具 插入斜線表頭，對應行標題和列標題輸入內容後確定 在excel中新增斜線表頭輸入內容的方法如下 1 使用文字框新增內容 單擊 插入 文字框 橫排垂直文字框 滑鼠...
如何在EXCEL中輸入日期，就會自動轉換一整行顏色
學徒 選定日期列，設定條件格式，數值大於0，格式，圖案，選擇顏色確認即可 日期 也就是一種條件 就是 如果為空時 不變色 而不為空時 則變色 即便不輸入日期 也是一樣 恩 可以這樣做 假設a d為其他資料 而e為日期列 則選中a1 e1 然後點格式 alt o 然後條件格式 d 在條件1 先選擇 公...