Tag: 用户

Excel连接string的通用用户: 是否可以在Excel数据连接的数据连接string中具有通用用户引用？我有一个外部参考，我想与我的同事分享另一个工作簿，而在我们使用的协作软件中，每个用户的同步文件夹都有一个path，例如： C:\Users\"Username"\…. 是否有类似于％USERPROFILE％的提示，我可以在这个实例中使用？以下是完整的连接string示例： DSN=Excel Files;DBQ=C:\Users\"Username"\…\File.xlsx;DefaultDir=C:\Users\"Username"\…;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;

Excel – 禁止用户更改条件格式: 我在工作表上有几个条件格式，我不希望用户清除它们。表保护似乎没有这样的设置，我没有在互联网上find任何答案，即使使用VBA。我该怎么做才能禁止用户触摸条件格式？

根据文本框值查找列，并在列表框中显示所有结果: 我有一个 ListBox = firmList; TextBox = firmGroupID; Worksheet = RelatedFirms; ColumnA = gID (ID numbers); ColumnB = firmName 我正在尝试根据firmGroupID的值填充我的列表框。目前我有一个combobox，根据comboboxselect填充firmGroupID中的gID号码。然后，我会喜欢firmList根据firmGroupID填充firmNames列表。 Sheet RelatedFirms包含每个firmName的分配的gID。这似乎很简单，但我所尝试的一切似乎并没有工作。不知道如何只显示列表框中的值等于gID的项目。 Private Sub firmGroupID_Change() Dim rngName As Range Dim ws As Worksheet Dim i As Integer Set ws = Worksheets("RelatedFirms") For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1 If ws.Cells(i, […]

VBA如何强制用户使用Excel内置的范围select来select范围？: 我想达到的目的是一旦macros运行，用户必须select（通过手工，而不是通过input范围）一个范围，然后将其设置为一个范围variables。 Excel在很多领域都有这样的function，例如图表的数据select设置，但我不知道如何访问它。任何和所有的帮助表示赞赏！

search范围如果空白提示用户Intup每个单元格: 我有一个信息的范围，并希望检查之前，我保存它。我有麻烦的方程提示用户哪个单元格是空的，然后提示他们input正确的信息。我认为这是因为我将细胞定义为一个范围，或者我错过了其他的东西。一旦popupinput框，我想通过偏移单元格到左边来告诉用户他们丢失了哪些数据。左边的单元格是他们需要input的数据types（如date或名称）。该偏移单元格不会显示在input框的消息中。 For Each CheckCell In Sheets("Sheet1").Range("J5:J17").Cells If Len(Trim(CheckCell.Value)) = 0 Then Cellcheck.Value = Application.InputBox("Please Enter Data for" & CheckCell.Offset(Rowoffset:=0, Columnoffset:=-1).Value, "Mission Info") End If Next CheckCell

防止用户编辑手动范围（但允许VBA）: 我想阻止用户能够编辑一定范围的单元格。但VBA应该保持这样做的能力。所以当按下Excel中的button时，VBA应该能够对Cell的值进行修改，而用户不能手动执行此操作。刚刚find了一个适合我的需求的其他软件：如何保护Excel中的单元格，但允许这些被VBA脚本修改只有我还在质疑的是，如果这个答案适用于某个范围而不是整个练习册呢？

在Excel中帮助完成用户表单的VBA代码: 我对整个用户表单和VBA是一个新东西，但一直试图弄清楚如何在最后一天左右做一个，之后有很多YouTubevideo和Googlesearch，但我仍然没有find答案。我从来没有写过任何代码，所以我知道我已经在我的脑海里了。我在Windows 8笔记本电脑上使用Excel 2013。我试图build立一个用户input值的基本计算器，select计算，它产生的结果为某人手写日志。我有一个Excel电子表格中的公式和计算，但是我想要一些比这更专业的东西。左侧的所有数据（干重，燃油input，燃油输出，发动机起动时间，起动时间和着陆时间）由用户input。右侧的所有数据（起飞重量，着陆重量，发动机运行时间，飞行时间，耗油量，燃油燃烧）都需要从左侧input的值中计算出来。我能够find如何做这些button的计算，重置和退出function，甚至已经计算出如何计算发射重量，着陆重量和耗油量。我很难find代码来计算时间。到目前为止，这里是我有的代码 – Private Sub CalculateButton_Click() LaunchWeightCalculation = Val(DryWeightEntry.Value) + Val(FuelInEntry) LandingWeightCalculation = Val(DryWeightEntry.Value) + Val(FuelOutEntry) FuelConsumedCalculation = Val(FuelInEntry.Value) – Val(FuelOutEntry) End Sub Private Sub QuitButton_Click() Calculator.Hide End Sub Private Sub ResetButton_Click() Unload Calculator Calculator.Show End Sub Private Sub UserForm_Click() End Sub 这里是我所有的input框名称 – DryWeightEntry […]

由不同的用户运行不同的macros或代码部分: 我写了一个macros来保存一个文件到一个特定的URL。问题在于，我的公司中的不同用户使用不同级别的权限来访问Intranet文件夹。该macros由电子表格上的button激活。据我所知，我至less有两个解决scheme：创build不同的macros，并将它们链接到不同的button（用户将按各自的button。不优雅的可能性出错）使VBA识别用户，并使用正确的SAVE AS url运行特定的macros或代码string。我会避免第一个解决scheme，但我不知道如何写第二个解决scheme。以下是SAVE AS方法中的完整代码： Sub test_salva() Workbooks.Open Filename:= _ "\\Share\Qualita_MG\Gestione Documentazione\Doc. TECNICI- QUALITA'\Moduli di supporto\C – Controllo Qualita'\MOD UNICO.xlsm" Windows("RIEPILOGATIVO 2015.xlsb.xlsm").Activate ActiveSheet.Range("A3").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveCell.Offset(-1, 0).Select Selection.Copy Windows("MOD UNICO.xlsm").Activate Sheets("Ita-Eng").Activate Range("AF31").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("RIEPILOGATIVO 2015.xlsb.xlsm").Activate ActiveCell.Offset(0, 1).Range("A1").Select Application.CutCopyMode […]

基于用户input从其他工作簿导入数据: 我想我的Excel文件从其他工作簿导入工作表。用户input要导入的文件的path，公司的某些部门（每个导入最多3个部门），按下macrosbutton，然后excel应该查找部门的文件（f.ex. HR .csv）并将某些列导入到新的工作表中。 input如下所示：我没有import业务的问题，但我不明白我怎么可以告诉excel从哪里得到的文件和哪些工作簿打开，因为Excel必须打开多个工作簿-… –

如何在Excel VBA中的列的末尾进行用户表单输出: 我试图使这个用户表单输出选项button结果在一列的结尾。最初我尝试使用相同的我在我的主要模块中的下一个循环，但用户表单将无法识别该variables，即使将其作为公共的尺寸后。有任何想法吗？ Private Sub cmdOk_Click() If opt1 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "None" ElseIf opt2 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "3/8 Plain" ElseIf opt3 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "1/2 Plain" ElseIf opt4 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "1/2 Herringbone" ElseIf opt5 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "1/2 Diamond" End If Unload frmLagging End Sub