如何使用 VB 脚本对多 sheet（制表符）excel 执行单个按钮操作？

Question

我是 VB 脚本的初学者，我有一个 excel sheet 多选项卡。我在一个 excel sheet 中创建了一个按钮。另一个 sheets 有一些 table 。我想使用一个简单的按钮在包含 excel table 的文件中生成一些代码。

例如：

这本 excel 书有一个名为“生成”的选项卡。在 Generate 中，我创建了一个按钮。

我有另一个名为 country 的选项卡，其中包含一个 table 国家列表

我还有另一个名为 car 的选项卡，其中包含用于汽车列表的 table

现在我想创建一个文件 "output.txt"，当单击生成代码按钮时，该文件应该使用来自两个选项卡（国家和车辆）的一些代码创建。

我的output.txt格式：

*from sheet1 Country*/

VAR const US[] =
{
   0x0,/*binary 00000*/
   0xB,/*binary 01011*/
   0x3,/*binary 00011*/
   0x3,/*binary 00011*/
   0xB,/*binary 01011*/
   1xB /*binary 11011*/
};

//need to crate hexa array for Uk,france,brazil and india   

VAR DefaultCountry[] =
{
  invalid,
  UK,
  Brazil,
  Brazil,
  UK,
  India
};

/* from sheet2 car */

VAR const polo[] =
{

};

//need to crate hexa array for BMW,i20,Swift and wagnor   

VAR DefaultCAR[] =
{
  invalid,
  BMW,
  Swift,
  Swift,
  BMW,
  Wagnor
}

excelsheet.txt 格式：

const exceldetails[Maxindex] = 
       {
         /* index 0 */
         /* index 1 */
        { 
         { UK, India, brazil,eMaxNoOfcountry, eMaxNoOfcountry},
          {BMW, Wagnor, Swift,eMaxNoOfcar,eMaxNoOfcar },
          index1,
        },
         /*index 2*/
         etc..
    };

如果列有“-”，它应该取0值，如果它是整数，它应该取1值并打印十六进制值和二进制值

例如： 对于国家/地区索引 0：- - - - - => 二进制：00000 => 六进制：0x0 索引 1：- 1 - 3 2 => 二进制：01011 => 六进制：0xB

数组名称： VAR const US[],france etc.. VAR const polo[],swift etc..
如果该列包含 1 ，则为默认值并为数组中的每个索引打印默认值列名

数组名称： VAR DefaultCountry[],VAR DefaultCAR[])
创建另一个文件"exceldetails.txt" 并将每个国家的顺序和汽车详细信息写入数组。如果“-”存在，则视为 eMaxNoOf.

数组名称: excel详细信息[Maxindex])

如何做到这一点？有什么帮助吗？ Any Reference 也会有所帮助。如何使用一个按钮从多个选项卡中获取 table 值？

Answer 1

我给你一个小代码片段，它不能回答你所有的问题，但只有当你将十进制值转换为二进制和十六进制时才可以。你要的我都不懂

Sub test()

'binary code and hex code
With Application.WorksheetFunction ' with this row you can use the functions Dec2Bin, Dec2Hex 

    'convert decimal in binary
    Cells(1, 1) = .Dec2Bin(Cells(1, 2)) ' input 3 -> out: 11

    'convert binary in hex
    Cells(2, 1) = .Dec2Hex(Cells(2, 2)) ' input 11 -> out B

End With
End Sub

这是您可以创建并写入文件 txt 的代码片段

Sub test()
'create and write into file txt
'when you execute again the macro the file is overwritten
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile("yourPath\MyFile.txt", True, True)
    Fileout.Write "your string goes here"
    Fileout.Close
End Sub

我创建了两个宏，因此您可以尝试每一个宏。您必须创建一个包含所有代码的唯一宏...

希望这对您有所帮助

编辑以回答您的评论如果你想在 sheet 中工作，下面有一个例子

Sub test()

Dim sh1, sh2 As Worksheet
Dim i, r, numRows, numColumns As Long

'set sh1 and the works it
Set sh1 = Sheets("Country") ' sheet name

'count how many rows there are into sheet1
'numRows = sh1.Range("A:A").Cells.SpecialCells(xlCellTypeContants).Count
numRows = sh1.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox numRows

'count how many columns there are into sheet1
numColumns = sh1.Cells(1, Columns.Count).End(xlToLeft).Column
'MsgBox numColumns

With sh1
For j = 2 To numColumns
   For i = 2 To numRows - 1
        If .Cells(i, j) = "-" Then

            'msgbox "the item into cell is empity: "
            'you code..
        Else
            'msgbox "the item into cells is: " & .cells(i,j)
            'your code...

        End If
    Next i
Next j
End With

'----repeat operation for the sheet2
'set sh2 and the works it
Set sh2 = Sheets("car") ' sheet name

'count how many rows there are into sheet2
numRows = sh2.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox numRows

'count how many columns there are into sheet2
numColumns = sh2.Cells(1, Columns.Count).End(xlToLeft).Column
'MsgBox numColumns

With sh2
For j = 2 To numColumns
    For i = 2 To numRows - 1
        If .Cells(i, j) = "-" Then

            'msgbox "the item into cell is empity: "
            'you code..
        Else
            'msgbox "the item into cells is: " & .cells(i,j)
            'your code...

        End If
    Next i
Next j
End With

End Sub

有两个 for 循环，因为一个使用列，另一个使用行...

如何使用 VB 脚本对多 sheet（制表符）excel 执行单个按钮操作？

How to do single button action for multi sheet (tabs) excel using VB script?

excel

vba

basic