12
返回列表 上一主題 發帖

[發問] 如何利用VBA回傳文字?

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
7# 跳轉到 »
發表於 2015-9-16 13:10 | 只看該作者
本帖最後由 leehom 於 2015-9-16 13:11 編輯

Workbook.zip (27.66 KB)


回復 6# GBKEE




感謝超級版主的回覆啊，我試過是有效的，但我想將代碼引入這個工作表卻無法成功，
我之前請教了其他高人，寫了一些VBA代碼，一開啟的話會彈出視窗要求輸入號碼，
文字模式是ABCD0123456，然後輸入增加多少個，它會自動遞增，像圖上那樣，
我的原意是希望是A欄"QTY"會自動添加號碼然後順應遞增，但卻無法成功，
只好再請求各位高手了，謝謝啊！！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2015-9-16 07:34 | 只看該作者
但下拉遞增就不行了,為甚麼會這樣呢師兄?
leehom 發表於 2015/9/15 23:39

這樣就可以.
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim E As Range
  4.     If Target.Column = 2 Then
  5.         For Each E In Target
  6.             If E = "" Then
  7.                 E.Offset(, -1) = ""
  8.             Else
  9.                 E.Offset(, -1) = E & " " & E.Row
  10.             End If
  11.         Next
  12.     End If
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
5#
發表於 2015-9-15 23:39 | 只看該作者
回復 4# lpk187

的確很神奇,我發現輸入文字是成功的,但下拉遞增就不行了,為甚麼會這樣呢師兄?

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2015-9-15 22:33 | 只看該作者
本帖最後由 lpk187 於 2015-9-15 22:34 編輯

回復 3# leehom


    依照你傳回數字，可以利用Target的列號(Row)回傳
觸發則改為第二欄Column = 2 ，也就是B欄
  1. Private Sub Worksheet_Change(ByVal Target As Range)

  3. If Target.Column = 2 Then
  4.     If Target = "" Then
  5.         Target.Offset(, -1) = ""
  6.     Else
  7.         Target.Offset(, -1) = Target & " " & Target.Row
  8.     End If
  9. End If
  10. End Sub
複製代碼

TOP

leehom

帖子
35 
主題
8 
精華
0 
積分
43 
點名
0  
作業系統
WIN7 
軟體版本
WIN 
閱讀權限
10 
註冊時間
2015-9-13 
最後登錄
2019-12-16 
3#
發表於 2015-9-15 21:47 | 只看該作者
本帖最後由 leehom 於 2015-9-15 21:48 編輯

回復 2# lpk187


果然有用啊,謝謝啊!!還想再請教一下,如果想回傳的是數字,如何設定遞增?
例如B1輸入文字,A1回傳是"1",B2輸入文字,A2回傳是"2",B3輸入文字,A3回傳是"3",
如此類推,要如何編寫呢?謝謝師兄指教!!!:D

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-9-15 13:56 | 只看該作者
回復 1# leehom


    不知道你所謂的特定文字是什麼？
不過你可以利用工作表事件來製作
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = "$B$1" Then
  3.     If Target = "" Then
  4.         Target.Offset(, -1) = ""
  5.     Else
  6.         Target.Offset(, -1) = Target & " DEF"
  7.     End If
  8. End If
  9. End Sub
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題