Excel中使用VBA制作一个恶作剧小程序的操作方法
1、ALT+F11，插入模块后在模块中添加下面的代码。然后回到sheet1中添加2个自选图形，右击后为其指定相应宏。
2、要是会VB，编VBA就简单很多。你的具体问题我没有看，只是想说一些基本的东西。EXCEL主要调用的是Sheet对象和Cell (或者说是Range)对象。例如，Sheet1中的单元格A2可以用Sheetcells(2，1)调用，也可以用SheetRange(A2)进行调用。
3、首先打开Excel，以制作一个抽奖小程序为例，先输一些数据。首先我们在抽奖区的单元格中输入=INDEX（）。然后选中数据源，也就是所有成员。然后继续输入=INDEX（E：E，Randbetween()）。在Randbetween()这个涵数中输入1，5，也就是数据源。
4、步骤/方式一 首先打开Excel，以制作一个抽奖小程序为例，先输一些数据。步骤/方式二 首先我们在抽奖区的单元格中输入=INDEX()。步骤/方式三 然后选中数据源，也就是所有成员。步骤/方式四 然后继续输入=INDEX(E：E，Randbetween())。步骤/方式五 在Randbetween()这个涵数中输入1；5，也就是数据源。
5、把要填写的表放在sheet1中（一二两列）把来源表放在sheet2 中（一二两列）从控件工具箱中 拖放一个按钮 在sheet1中 双击按钮，把下面的代码放在原有的两行之间，点击保存。
6、好像有个叫excelToexe的东西，如果只是数据excel不会太大，如果文档中包含了太多的对象，则建议你对没有必要的对象如插入到文档中的图片删除。
求一个vba小程序
1、打开文件，进入【开发工具】点击【visual basic】。打开需要点名的所在sheet表，并输入代码，并单击【保存】。弹出另存为，设置保存类型，将文件保存为xlsm。在【开发工具】-【插入】一个按钮。在弹出的“指定宏，选择sheet”点名，并点击【确定】。
2、方法/步骤：首先我们打开表格，在表格里制作三个框。分别为：中奖名单、中奖编号和中奖人。在中奖编号旁边的框里，输入函数：RANDBETWEEN()。在括号里，填入参与的人数。在中奖人下面的框里，填入函数：VLOOKUP()。在括号里“选中抽奖名单——逗号——选择2(姓名)——逗号——FALSE精确匹配。
3、Before：=Worksheets(1) For i = 2 To Sh.Cells(Rows.Count， 1).End(xlUp).Row Sh.Cells(i， 1).Hyperlinks(1).Follow NewWindow：=False， AddHistory：=True ActiveSheet.Move After：=Worksheets(Worksheets.Count) Next iEnd Sub只做了A列的，i循环是升序还是降序自己根据效果考虑更改。
4、首先打开Excel，以制作一个抽奖小程序为例，先输一些数据。首先我们在抽奖区的单元格中输入=INDEX（）。然后选中数据源，也就是所有成员。然后继续输入=INDEX（E：E，Randbetween()）。在Randbetween()这个涵数中输入1，5，也就是数据源。
5、可以考虑参考百元百钞问题，算法不是很难，但是很麻烦，42个数如果是要按照一般方法估计计算时间会非常长，如果不需要全部排列的话，可以考虑一下用数据顺序的调换或者无序调换获得一部分排列，但是如果要排列出所有组合需要的时间会比用百元百钞的算法时间还长。。
6、这个问题我好像回过，要你补充资料的。ALT+F11，插入模块后在模块中添加下面的代码。然后回到sheet1中添加2个自选图形，右击后为其指定相应宏。
如何使用vba制作随机点名小程序?
打开文件，进入【开发工具】点击【visual basic】。打开需要点名的所在sheet表，并输入代码，并单击【保存】。弹出另存为，设置保存类型，将文件保存为xlsm。在【开发工具】-【插入】一个按钮。在弹出的“指定宏，选择sheet”点名，并点击【确定】。
A：B， 2， FALSE)。这里，RANDBETWEEN(1，19)为我们生成一个随机的序号，VLOOKUP则会根据这个序号在名单中找到相应的姓名，整个过程就像一个神秘的寻宝游戏。为了让点名更加随机，只需将这个公式复制到你需要的行数，比如点7个人。
在PPT随机点名时，要指定一个人可以通过在点名之前先对所有人进行编号或者命名，然后在随机点名之后，根据所得到的随机数或者随机名字来确定指定的人。可以使用Excel中的随机数函数或者在PPT中使用宏或者VBA编程来实现随机点名，并在随机点名结束后，再加上指定的部分来确定点名结果。
先在第一张幻灯片时，点“视图”，进入“幻灯片母版”最后双击这个框进入VBA编程界面Publiccfxm()AsStringPublicjsAsIntegerPublicbjAsString完成后，双击窗口等等吧，把这个找出来，写下以下内容。PrivateSubComboBox1_Change()bj=ComboBoxTextEndSub复制吧，不用输入了。