菜鸟谈VBA最最基础入门《原创》

ggsmart

1、制作欢迎界面作业中    那个大的背景图片是怎么弄上去的？上面的筐都是加上去的，我看MOO是弄的喜羊羊，我怎么弄成我自己的图片？

回答：在属性窗口里可以设置（picture属性)

==========================
2、复制后选择性粘贴是什么样的代码？如将sheet1 a1  复制后  选择性粘贴到  sheet2  b2  怎么表达？
回答：不会写的代码可以使用录制宏来得到，简单修改一下就可以了，下面是我录制并修改的。

1. 
   
2. Sub mycopy()
   
3.    Sheets(1). Range("A1").Copy
   
4.    Sheets(2). Range("B2").PasteSpecial Paste:=xlPasteValues
   
5. End Sub
   

复制代码

其实可以直接写成：

1. 
   
2. Sheets(2). Range("B2").Value=Sheets(1). Range("A1").Value
   

复制代码

==================================
3、怎么跨工作表复制粘贴？如将C：\张三\名单.xls 的 a1:a10   复制后  选择性粘贴到D:\我的文档\联系人.xls  的 B1:B10  
我是新手，谢谢高人指点！
回答：这个问题和第二个问题没有什么区别，只不过对象不同而已！下面给一段代码，代码的作用是：打开一个指定的工作表，并将其中sheet(1）工作表的A1单元格数据复制到当前工作薄中sheets(2)工作表的B2单元格。

1. 
   
2. Sub test()
   
3.    Application.ScreenUpdating = False '关闭屏幕更新
   
4.     Dim Filename As String '定义一个字符串变量
   
5.     Filename = Application.GetOpenFilename '选择一个Excel文件（如果文件是已知的，可以直接打开）
   
6.     Workbooks.Open Filename '打开选择的文件
   
7.     ThisWorkbook.Sheets(2).Range("b2").Value = ActiveWorkbook.Sheets(1).Range("a1").Value '将打开的文件的sheet(1)工作表里的A2单元格数值赋给当前工作薄sheets(2)工作表的B2单元格
   
8.     ActiveWorkbook.Close '关闭选择打开的工作表
   
9.    Application.ScreenUpdating = True '打开屏幕更新
   
10. End Sub
    

复制代码

好大棉花糖

受益了，谢谢LZ！

weijie16351

谢谢!分享

boy8238

这么好的老师，这么好的教材，感激之情言辞难表。

lironger8

谢谢叶老师！第1 、第2个问题我自己解决了，第3个问题谢谢老师的帮助！以后有不明白的，再请教！

zhaobo337

谢谢了，刚开始学

lvshaofeng

是不是哦，学不学VBA先不说，先学楼主的精神！

liebemich

非常感谢前辈的整理，正好工作需要，要好好学习才是！

pyzx

谢谢，收藏了，楼主们辛苦了！

michael9

太好了，对我这样的初学者很试用