vba代码，帮我做个 VB 程序代码怎么写

本文目录一览

1，帮我做个 VB 程序代码怎么写
2，EXCEL数据排列求VBA代码
3，Excel应用求VBA代码
4，求一段VBA代码
5，Excel VBA代码
6，计算机VBA语言题求代码怎么写

1，帮我做个 VB 程序代码怎么写

帮不了你了哎哎对不起

帮我做个 VB 程序代码怎么写

2，EXCEL数据排列求VBA代码

我倾向于直接在单元格B1输入=OFFSET($A$1,(ROW(A1)-1)*3+COLUMN(A1)-1,0)公式复制到B1:D3

先打个“1”，然后点右下角的“ ”往下拉。望采纳，谢谢。

EXCEL数据排列求VBA代码

3，Excel应用求VBA代码

1） Sub aaa()Dim arryarry = Range("a1:b2")Range("c1:d2") = arryEnd Sub 运行前：运行后： 2）输入application.worksheetsfunction.函数

Excel应用求VBA代码

4，求一段VBA代码

用公式简单，省的编程了在目标单元格里面写公式=vlookup(b2,sheet1!$a$2:$b$300,2) 序列填充

我用的程序是office的数据库——Microsoft Office Access 2007 我现在有两张表：表1 表2

5，Excel VBA代码

提示：插入模块，编辑一个宏： 1、用 GetObject 函数，将 D:\My Documents\数据备份.xls 文件读取到内存。 2、用语句 Range("A1000").End(xlUp).Row 读取最后一行行号n，假若超过1000行，只要改变1000即可。 3、判断A5单元格是否为零，若为零，则用 Range("A" & n & ":C" & n).EntireRow.ClearComments 清除数据； 4、清除完毕后，用 MsgBox "数据清除成功" 语句提示结束。 5、在目前文档中一个单元格用于标识数据清除标识，例如A5单元格，若A5=0，表示未清除，若A5=1，则表示已清除。 6、在打开文件模块语句中，将A5单元格清零。以上为提示，具体代码，你不妨自己写。

6，计算机VBA语言题求代码怎么写

假设当前活动工作表中的批注单元格分布如下：A1 → Area1B3:B5 → Area2Excel VBA 参考代码：Option ExplicitPublic Sub Test() Dim strName As String On Error Resume Next strName = InputBox("请输入单元格名称") If StrPtr(strName) Then If Len(Trim(strName)) Then Dim nmItem As Name Set nmItem = ActiveSheet.Names(strName) If Not (nmItem Is Nothing) Then Dim rngCell As Range Dim cmtItem As Comment For Each rngCell In nmItem.RefersToRange.Cells Set cmtItem = rngCell.Comment If Not (cmtItem Is Nothing) Then Debug.Print rngCell.Address & vbTab & cmtItem.Text Set cmtItem = Nothing End If DoEvents Next End If Else End If Else MsgBox "您没有输入要查找的单元格名称！" End IfEnd SubF5 运行 Test 过程，在 InputBox 对话框中输入 area2：可以看到立即窗口（Ctrl+G）输出如下：如果直接点击 InputBox 对话框中的取消或按 ESC 键，则提示：

Msgbox 你好