有關Excel大量輸入註解的方法？

**nanpan** · 2001-06-05, 04:31 AM

例如：我有一欄都是歌星的專輯名字，而且也有一個按照專輯名稱排列而作成的專輯歌曲名稱的文字檔，要如何讓這些歌曲名稱全都變成Excel各個[歌星專輯]儲存格裡的各個[註解]？

用任何方法都可以，但不要用[插入註解]→[複製]→[貼上]這種方法，因為唱片起碼有幾百張，貼完已經累扁了，用別的軟體也可以，只要能快速完成即可，這會不會要自己寫程式才辦得到呢？

對了，請問要如何更改[註解]裡內定的[~(人名)~]文字？因為我想把它改成[曲目]來符合[註解]的內容.......

煩請高手指點一二..............!!!!!!!!

如下：
[歌星專輯]:

陳小春《抱一抱》
彭羚《給Lisa》
蕭亞軒《明天》
汪佩蓉《It's You》
品冠《疼妳的責任》
.
.
.

[註解]:

01.抱一抱
02.我愛的人
03.二楞子
04.誰說我在掉眼淚
05.我有什麼資格不要你
06.裝聾作啞
07.有這麼難嗎
08.何必太認真
09.我不是一百分
10.比永遠更遠

01.?????????
02.??????????
.
.
.
.

**leonchou** · 2001-06-05, 08:37 AM

粉不幸的　必需用程式(巨集)才能辦到∼
註解這種東西是很死的　只是個文字方塊
比一般文字方塊不如的　根本不能設連結
頂多只能設定方塊大小　和一些基本格式

想請問的是　你要讓一個註解包含該專輯的歌名？
但在你的文字檔裡　如何辨別這些歌是哪個專輯？

蠻新鮮的題目　大家來研究研究吧~~

**nanpan** · 2001-06-05, 01:15 PM

其實，這是用MP3的檔名來完成的，例如：我在G:\mp3目錄裡有很多歌手的專輯MP3，每個歌手各個專輯皆為各別的一個目錄，就像：
G:\mp3\陳小春《抱一抱》; G:\mp3\彭羚《給Lisa》......等，而我就在G:\mp3目錄的MS-DOS模式下打[dir /s /o > 1.txt]，這樣子就可以得到一個經過排列好的專輯目錄和歌曲名稱的1.txt檔，再用WinCV裡的CE的功能可以整個把多餘的部分用[區塊]標記起來然後刪除

再用[取代]的功能把檔名裡的.MP3給全部移除後，就得到一個經過排序的--[目錄名稱]--和--[歌曲名稱]--的[文字檔]了，假如，如果專輯放在很多不同的目錄的話，也只好各別做該[根目錄]的txt檔，然後用copy /b的方式來合併所有的txt檔再來作編輯即可..........Do you see?

**leonchou** · 2001-06-08, 01:27 PM

　唉~　都沒人要研究ㄛ？　-__-"

請按下列步驟 --

1.先確認文字檔裡不要有空白行，在 Excel 開啟這文字檔，
　會出現 [文字剖析] 精靈，逐步完成後把整欄複製到
　[歌星專輯] 所在的工作表，舉例如下：

　　　　　（Ａ欄）　　　　　（Ｃ欄）
　１｜陳小春《抱一抱》　　陳小春《抱一抱》
　２｜彭羚《給Ｌｉｓａ》　01.抱一抱
　３｜蕭亞軒《明天》　　　02.我愛的人
　４｜汪佩蓉《It's You》　 03.二楞子
　５｜品冠《疼妳的責任》　04.誰說我在掉眼淚
　６｜　　　　　　　　　　05.我有什麼資格不要你
　７｜　　　　　　　　　　：
　８｜　　　　　　　　　　彭羚《給Ｌｉｓａ》
　：　　　　　　　　　　　01.Song01
　　　　　　　　　　　　　02.Song02
　　　　　　　　　　　　　03.Song03
　　　　　　　　　　　　　蕭亞軒《明天》
　　　　　　　　　　　　　01.Song01
　　　　　　　　　　　　　02.Song02
　　　　　　　　　　　　　03.Song03
　　　　　　　　　　　　　：

2.按〔Alt + F8〕，出現 [巨集視窗] → 在 [巨集名稱] 輸入
　"AddComments" →〔建立〕→ 出現巨集編輯視窗，
　Sub AddComments() 比照以下內容：

　Sub AddComments()
　r = 1
　Do While Cells(r, 1) <> ""
　Set album = Columns(3).Find(Cells(r, 1))
　If Not album Is Nothing Then
　　r1 = album.Row + 1: song = Cells(r1, 3)
　　Do While song <> "" And Right(song, 1) <> "》"
　　With Cells(r, 1): n = Len(.NoteText)
　　.NoteText IIf(n = 0, "", Chr(10)) & song, n + 1
　　.Comment.Shape.TextFrame.AutoSize = True
　　End With
　　r1 = r1 + 1: song = Cells(r1, 3)
　　Loop
　End If: r = r + 1
　Loop
　End Sub

3.按〔Alt + Q〕回到 Excel，按〔Alt + F8〕，出現
　[巨集視窗] → 選擇 "AddComments" 巨集 →〔執行〕

4.Mission Completed.

(P.S. 上述內容部份含全形字、全形空白是為了PO文章對齊用)

**nanpan** · 2001-06-09, 07:16 AM

感謝你的回答，雖然可以解決上述我所說的問題，但對我這個VB三腳貓的人，要看懂這個程式碼，實在會讓我累死，連[陣列]都不會的我看樣子還有一大段路要走...........(學習VB的時間不超過兩個星期)

不過，還是很感謝你的熱心回答！THX......^_^

**leonchou** · 2001-06-09, 01:14 PM

=^^= ㄅ客氣~　發問的人得到協助固然可喜
答題的人也從解決各種案例啟發了更多技巧..
彼此都有收穫　何況各方高人也許還有不同的方案
由衷希望　大家都能踴躍來提供自己的心得
畢竟知識是需要討論和分享才有意義不是嗎

有的人只想解決問題　　有的人更想進一步學習
天下無難樹主怕有心人　只要踏出第一步　學成指日可待

P.S. 想學 [陣列] 的朋友有福了∼

-陣列公式初級範例- <== 在這裡

[陣列公式進階應用] 近日推出，敬請期待~~　