乍一看，屏幕上打开的是单体测试书。
仔细一看，也还是单体测试书。
拿起鼠标、键盘，操作编辑一下，嘿，还真是单体测试书！
哈哈哈哈，要的就是这个效果。那么小说藏哪去了？
概要设计书、详细设计书、单体测试书还有其他的参考资料，基本上都是用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
