如何利用VBA回傳文字? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何利用VBA回傳文字?

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

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

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

11^# 跳轉到 »

發表於 2015-9-16 15:44 | 只看該作者

回復 10# lpk187

終於成功了,感謝各位的幫忙,學到不少了,THX!!!

超級版主 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兔年全勤獎章

12^#

發表於 2015-9-17 05:38 | 只看該作者

回復 10# lpk187
可用自動填滿,試試

Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$B$2" Then
Application.EnableEvents = False
Cells(2, "A") = 1
i = Application.InputBox("How many numbers you want to add?", "Prompt", , , , , , 1)
With Range("A2:B2")
Range(.Cells.Offset(1), .Cells.End(xlDown)) = "" '清除舊有資料
.AutoFill Range("A2:B2").Resize(i) '自動填滿
End With
Application.EnableEvents = True
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

13^#

發表於 2015-9-17 14:49 | 只看該作者

回復 12# GBKEE

這個很棒,不再限於ABCD0123456這個格式,任何長短數字都可以遞增。再請教一下,如果想A的數字自動加括號要怎麼寫?如1),2),3).....,謝謝!!

高中生 Rank: 3 Rank: 3

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

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

14^#

發表於 2015-9-17 16:17 | 只看該作者

回復 13# leehom

把Cells(2, "A") = 1 把這句改成 Cells(2, "A") = 1 & ")"

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

15^#

發表於 2015-9-17 16:50 | 只看該作者

回復 14# lpk187

不行哦,我也有試過,但全部會變成1)

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

16^#

發表於 2015-9-17 20:57 | 只看該作者

回復 14# lpk187

我又試了一下,現在又可以了,之前那個workbook可能有些問題,總之謝謝大家了!!

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

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