带你入门VBA系列之：不懂的代码快点贴过来

lsss1111

谢谢

xiaoguang007

如下程序为什么在CELLS（1，3）输入数据后，将数据删除以后，再执行命令，窗口不会弹出。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("sheet1").Cells(1, 1) = 100 And Sheets("sheet1").Cells(1, 3) = "" Then
UserForm1.Show

End If

End Sub

kfzlzxtfl

我试试怎样发附件

 真的不知道如何发附件?

 

 

[em06]

slmlg

谢谢，今后有什么不懂的一定要问。

paper1222

Private Sub Worksheet_Activate()
If Sheets(1).Name Like "sheet1" Then
 Sheets(1).Select
 Else
 Sheets(2).Select
 End If
End Sub

这段代码的功能是，打开工作簿时，sheet1无法成为活动工作表。

可我不太理解这段代码，看上去的意思是，如果第一个工作表的名称是sheet1，则选取第一个工作表，否则就选第二个工作表。

那么，当点击“sheet1”时，该工作表不是该被选中吗？怎么会是无法选中呢？

gdwyj0375

兰老师你好，我想问一个很菜的问题，希望你不要见笑。宏有一个录制功能。是不是这个功能只能对同一张表中，同一个位置的数据进行操作，如果我想这段代码能对同一张表中，不同位置的数据也能进行同样的操作，该怎么样对它进行修改？

[em04]

888566zmh

Selection.Font.Colorlndex = 11 'Sets the font color to Violet

提示说运行时错误'438’什么意思

爱歌学习

QUOTE:

以下是引用liurj在2006-9-7 20:18:25的发言：

CurrentProject.Connection.Execute "SELECT * INTO [Text;FMT=Delimited;HDR=Yes;DATABASE=" & MyPath2 & ";].[" & qh & "wq.txt] FROM C;"

我用这条语句在ACCESS中导出固定宽度的文本，但我现在想导出为excel格式的，将如何修改

先谢了

CurrentProject.Connection.Execute "SELECT * INTO [Sheet1] IN '" & ThisWorkbook.Path & "\NEW.xls' 'Excel 8.0;' FROM C;"

（其中.xls' 'Excel之间空格不可缺）

爱歌学习

QUOTE:

以下是引用tongtong96在2006-8-7 14:30:35的发言：

Sub combine()
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
    Sheet2.Activate
    Sql = "select '',f2,'',f4,sum(f5),'',sum(f7),'',sum(f9),'',sum(f11),'',sum(f13) from [sheet1$A7:O10000] group by f4,f2 "
    [A7:O10000].Clear
    [A7].CopyFromRecordset cn.Execute(Sql)
End Sub

兰教师：以上代码 红色部分hdr=no' 是什么意思，我查了有关资料说是如果hdr=yes' 则可以用引用Excell 表格中的列标题作为字段名，但是如果表格中列标题有多行那么列标题又是什么呢？

这里SQL语句中，用f2、f4等表示excell表格的列，我的理解正确吗，希望能得到你详细的解答，谢谢！！

如果数据区为 A7:O10000 ，那么当 hdr=no 时 ，无列标题；当 hdr=yes 时，列标题为 A7:O7 ，并且句中的 f2、f4等要用 A7:O7 中的实际文字替换......

stx1980710

QUOTE:

以下是引用xiaoguang007在2006-10-1 20:09:18的发言：

如下程序为什么在CELLS（1，3）输入数据后，将数据删除以后，再执行命令，窗口不会弹出。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("sheet1").Cells(1, 1) = 100 And Sheets("sheet1").Cells(1, 3) = "" Then
UserForm1.Show

End If

End Sub

因你用的是Worksheet_SelectionChange而不是Worksheet_Change，它不支持数值变动