当前位置：首页 → 问答吧 → 【请教】ShowDataForm的问题

【请教】ShowDataForm的问题

时间：2003-08-14

来源：互联网

ZCjZTgHx.rar (8.65 KB) 详见附件

作者: cofe2000 发布时间: 2003-08-14

您好:請將"按鈕 1" 及 "按鈕 2" 同時指定database宏先說明一下"按鈕 1" 的名稱(.Name)為"按鈕 2""按鈕 2" 的名稱(.Name)為"按鈕 6"Sub database()i = ActiveSheet.NameWith Sheets(i)If Application.Caller(1) = "按鈕 2" Then.Range("A2:F16").Name = "database".ShowDataFormEnd IfIf Application.Caller(1) = "按鈕 6" Then.Range("H2:M16").Name = "database".ShowDataFormEnd IfEnd WithEnd Sub

作者: 中國龍发布时间: 2003-08-14

to：中國龍我用了你的代码，但是没有任何反映啊我对于vba不在行，劳驾解释一下代码好吗，谢谢！！

作者: cofe2000 发布时间: 2003-08-14

引用:

以下是引用cofe2000在2003-8-14 17:28:00的发言：to：中國龍我用了你的代码，但是没有任何反映啊我对于vba不在行，劳驾解释一下代码好吗，谢谢！！

您好:請將 database 複製到 Modula >> 將您建的2個按鈕同時指定到database我想做到的效果就是多個按鈕共用一個database程序我想你的問題是在 If Application.Caller(1) = "按鈕 2" Then"按鈕 2" 這個字上,因為我使用繁體,所以請您自行改為簡體字應該就就可以了大約說明一下程式內容1.當使用者在工作表中按下按鈕後,我可利用Application.Caller(1) 方法得知使用者按下哪個按鈕2.當我知道是那個按鈕被按下時,就可以進行個別的工作了例如:使用者按下工作表的 "按鈕 1",透過 Application.Caller(1) 方法的傳遞得知是Shape物件中的"按鈕 2" 被按下,所以我用If Application.Caller(1) = "按鈕 2" Then 的判斷式來判斷是"按鈕 1" 被使用者按下了我將名稱改成英文,上傳附件

UiXmbPDA.rar (9.31 KB)

作者: 中國龍发布时间: 2003-08-14

朋友，真心的感谢你你的水平够做版主的了，真是高手啊，呵呵

作者: cofe2000 发布时间: 2003-08-14

再请问一下如何插入Modula用插入只能插入模块和类模块啊？

作者: cofe2000 发布时间: 2003-08-14

如果我想在有很多标题行的表中选择几列的话，我试了一下如下，Sub yyyy()i = ActiveSheet.NameSheets(i).Range("o2:t16").Name = "database"Sheets(i).ShowDataFormEnd Sub请问= "database"为何意思？？？

[此贴子已经被作者于2003-8-14 19:27:03编辑过]

作者: cofe2000 发布时间: 2003-08-14

如果没记错的话，这是个古老的东西，Excel4.0 设置数据区域的保留名称

作者: 老刀发布时间: 2003-08-14

古老的东西那这段代码非这么写吗？还有别的方法吗

作者: cofe2000 发布时间: 2003-08-14

在Excel95以前专门有个菜单用于设定数据区域，95中有了改进，数据区域可自动识别，但对于您这种情况，恐怕还得用这个方法。

作者: 老刀发布时间: 2003-08-14