乍一看，屏幕上打开的是单体测试书。

仔细一看，也还是单体测试书。

拿起鼠标、键盘，操作编辑一下，嘿，还真是单体测试书！

哈哈哈哈，要的就是这个效果。那么小说藏哪去了？

概要设计书、详细设计书、单体测试书还有其他的参考资料，基本上都是用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