乍一看，屏幕上打開的是單體測試書。
仔細一看，也還是單體測試書。
拿起鼠標、鍵盤，操作編輯一下，嘿，還真是單體測試書！
哈哈哈哈，要的就是這個效果。那麽小說藏哪去了？
概要設計書、詳細設計書、單體測試書還有其他的參考資料，基本上都是用EXCEL寫的。電子表格軟件，自然格子（CELL）很多。眾多的格子當中，藏著兩行小說，別說離遠了看不清，就算坐在桌前盯著屏幕，不仔細找，也不太容易發現。
隻有兩行小說？是的，一次隻顯示兩行。每看完兩行，需要操作一下，顯示下麵兩行。眾多的格子中，換一個CELL的兩行文字，白底黑字的，屏幕上的動靜，小得可以忽略不計。這一回，再也沒有屏幕一閃的問題了。
身後的人盡管走來逛去吧，我且放心大膽的看小說。偶爾，真來個人談事情，隻需鼠標飛輪輕輕一滾，裝小說的格子（CELL）就藏到屏幕下方看不見了。還不放心的話，快捷鍵Alt-s一按，原本裝小說的那個CELL，內容就還原成了原來的業務內容。再想找，蹤跡皆無，哈哈，爽吧?!
實現的方法，自然離不開VBA了。
Sheet裏麵加兩個按鈕，放到既方便按、又不醒目的地方。一個的功能是讀下兩行小說，一個是還原。再設上快捷鍵，這樣鼠標和鍵盤都可以操作。再追加兩個文本框，一個放小說的全路徑，一個放當前閱讀的行數，每讀取兩行，數字自動累加。當然，兩個文本框設置成不可見，平時是看不見的。
這樣就行了。具體的VBA代碼如下，與大家共享。
Private Sub CommandButton1_Click()
Dim TextLine
Dim nCount
nCount = 0
With CreateObject("ADODB.Stream")
.Open
.Type = 2 ' テキスト
.Charset = "gb2312"
.LoadFromFile TextBox1.Text ’文件名
.Position = 0
.LineSeparator = 10 '改行文字の文字コード 10 = LF
Do Until .EOS
TextLine = .ReadText(-2)
nCount = nCount + 1
If nCount = TextBox2.Text Then’當前行數
Cells(26, 3).Value = TextLine
TextLine = .ReadText(-2)
nCount = nCount + 1
Cells(26, 3).Value = Cells(26, 3).Text + vbLf + TextLine
TextBox2.Text = TextBox2.Text + 2
Exit Do
End If
Loop
End With
End Sub
Private Sub CommandButton2_Click()
Cells(26, 3) = " １、下記のテーブルはテストパターン１のデータを使用する" _
+ vbLf + " ・購入項目付加マスタ（外部受信）"
End Sub
