VBA：ファイルにテーブルのヘッダーと内容と表示出力を取得

Question

私はこのようなテーブルを持っている：

「Ctrlキーしかし、A」のコントロールボタンです

  Name Color Shape Size Cost Note 1 Note 2 
Ctrl But A Fruit 1 a  d  f  1  6  9 
Ctrl But B Fruit 2 b  e  g  2  7 
Ctrl But C Fruit 3 a  d  f  3  10 
Ctrl But D Fruit 4 b  e  g  4  8 

。

各ボタンを押すと、特定の形式の行情報をcsvファイルに出力したいと思います。

Name: Fruit A 
Colour: a 
Shape: d 
Size: f 
Cost: 1 
Note 1: 6 
Note 2: 9 

テーブルの列が可変である場合は、これを達成するための最良の方法は、どのようなものです：ボタンAが押されている場合たとえば、私は次のように出力しますか？

コードはこのようなものだろう：

1. go to the top of the 'Name' cell 
2. look up the value in the same row as the button 
3. go to the top of the 'Color' cell 
4. look up the value in the same row as the button 
repeat until the end of the row is reached 
output and save file 

をあなたのヘルプは大歓迎です！

Answer 1

仮定：

• 細胞基礎となるボタンが空のデータと
• 列は右のボタンで起動

は、あなたがこの

Option Explicit 

Sub FruitButton() 
Dim iRow As Long, iniCol As Long, endCol As Long, jCol As Long 

Open "C:\mypath\myfile.csv" For Output As #1 '<== adapt it to your needs 

With ActiveSheet 
    Call GetIniEndCol(.Buttons(Application.Caller), ActiveSheet, iRow, iniCol, endCol) 
    For jCol = iniCol To endCol 
     Write #1, .Cells(1, jCol) & ": " & .Cells(iRow, jCol) 
    Next jCol 
End With 

Close #1 

End Sub 


Sub GetIniEndCol(myButton As Button, ws As Worksheet, iRow As Long, iniCol As Long, endCol As Long) 
Dim iCol As Long 

With myButton.TopLeftCell 
    iRow = .Row 
    iCol = .Column 
End With 

With ws 
    iniCol = .Cells(iRow, iCol).End(xlToRight).Column 
    endCol = .Cells(iRow, .Columns.Count).End(xlToLeft).Column 
End With 

End Sub 

を試すことができます