Tag: excel 2010

从用户窗体中获取一个值: 我试图从这个用户表单中获得一个值来决定下一步select一个材质。 Private Sub UserForm_Initialize() Dim Material(1, 0) Dim MaterialC As Variant Material(0, 0) = "Carbon Steel" Material(1, 0) = "Stainless Steel" ComboBox1.List = Material ComboBox1.Value = Material Worksheets("Sheet2").Range("A1").Value = MaterialC End Sub 如果有人能够简单地澄清一个子和一个私人子的区别，那么也会真的很感激吗？我想使用2种材料的select来向用户呈现一组独特的尺寸，所以我需要知道他们select了什么。另外，是否有更有效的粘贴代码的方法比每行代码前添加4个空格？

提取行位置以用作参考: 我使用这篇文章中的build议填充了表单中的空白单元格的位置。所以我有一个列A填写以下格式的位置 $X$1或$X2:$X$4 。我想要做的就是使用上面解释的那些行数来填充一个单独的列。我想使用行号作为填充列的参考。所以B列看起来像 =$B$1或=$B$2:$B$4 （以1和2-4作为参考呼叫的行号）两栏都引用不同的表格，所以请原谅任何列名称。我不确定这是否需要VBA，或者只要使用一个公式就可以逃脱，我期望VBA能够满足所需的特性。我已经看过这样和这个post。但是，这些都不能完全涵盖我所寻找的东西。特别是因为我想要expression所有的内容在$B$2:$B$4情况下。我对如何解决这个问题的直觉告诉我，从列Aparsing第一个数字的string，然后检查它是否是string的结尾。如果是，则将其填充到填充列B的引用，如果不是，则find第二个数字并遍历一个填充单元格的循环（在这种情况下，希望将所有内容保留在一个单元格中）尊敬。即 =$B2 =$B3 =$B4 我的问题是如何去做这件事？如何parsingstring？如何生成将通过必要步骤的循环？如使用数字作为参考，从不同的列中提取信息并将其整齐地input另一列。

如果TextBox = 1到3然后？: 这是更多的代码质量问题。我有这个线，我正在与。 Len(TextBox.Text) = 1 Or Len(TextBox.Text) = 2 Or Len(TextBox.Text) = 3是否有更简单的方法来写这个？像一种： If Len(TextBox.Text) = 1-3 ？

格式date和时间在一个数组中或之后数组输出到ListBox？: 我假设格式化时间和date在一个数组是不可能的？如果是，你将如何改变列表框中列的格式？这是我正在使用的部分。 Private Sub TextBox_Search_Change() Select Case True Case OptionButton_User_Name.Value temp = UCase(Me.TextBox_Search.Value) Dim a() Dim rngValues As Variant With Sheets("ToolData") rngValues = .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).Resize(, 11).Value End With For i = 1 To UBound(rngValues, 1) 'Check columns B & F for matching values If UCase(rngValues(i, 1)) Like "*" & temp & "*" […]

创build图表为GIF并加载到UserForm: 我使用John Walkenbach代码将图表导出为GIF，然后将其加载到用户表单上。我遇到的问题是在这里这个位Image1.Picture = LoadPicture(Fname) 。它不是加载到用户窗体上的GIF。它导出的图片罚款，我可以看到它在我的Excel文件相同的目录。 Private Sub CommandButton1_Click() Call GetChart Image1.Picture = LoadPicture(Fname) MsgBox "Yep" End Sub Public Sub GetChart() Set CurrentChart = Sheets("StatsDB").ChartObjects(1).Chart Fname = ThisWorkbook.Path & "/temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" End Sub

sqlembedded式查询单元格范围为参数excel 2010: 我想通过一个parameter passing一个单元格的范围，但每当我做，是否我做一个列表框或连接所有的值，我的输出是空的。这里是我的SQL查询：select不同的k.USN，k.is_commodity，k.Import_SKU从ods..SKU k其中k.usn在（？）我的参数是Sheet1，单元格A9：A69

乘以6的列数乘以一个列: 好吧，这可能很简单，但我只是在网上找不到任何东西。我想要做的是，如果我input4列4将被乘以6并改变。基本上我不想要4在那里，但被replace为4 * 6（24）的答案。（顺便说一句，这只是一个例子）我需要在同一列。有没有办法做到这一点，所以Excel会自动改变input的数字，当一个新的input。希望这是有道理的，如果不让我知道，我可以进一步阐述。非常感谢

在执行清除受保护表格中的filter的macros后，Excel表格不受密码保护: 我写了一个代码来清除受保护的工作表中的filter。基本上，它不保护表单显示所有数据并保护表单。但是在执行之后，工作表没有密码就被保护起来了，它可以访问删除和插入我保护工作表时受到限制的行。请检查下面的代码。 'Keyboard Shortcut: Ctrl+p On Error Resume Next ActiveSheet.Unprotect Password:="generation@34" ActiveSheet.ShowAllData ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingRows:=True, _ AllowInsertingHyperlinks:=True, AllowDeletingRows:=True, AllowSorting:= _ True, AllowFiltering:=True, AllowUsingPivotTables:=True End Sub

从Excel表和字段列表创buildVisio数据库图: 我有一个Excel工作表，其中包含以下列：表名称字段名称数据types 我的目标是将其导入Visio，并为每个表格生成表格形状，并填充每个字段/数据types。然后，我可以绘制关系线，并安排一切。我在这里和其他网站上看到过有关导入Excel的post，但它似乎是数据，而不是数据计划。有人知道怎么做吗？请让我知道，如果你需要更多的信息。我正在使用Office 2010。谢谢！

在Excel散点图中使用文本作为水平标签: 我正在尝试使用文本作为横轴标签在Excel中绘制散点图。我有数据我想要一个这样的图表我制作这张图表的方法是用数值X值和数值Y值绘制散点图，所以不是波兰，而是X = 1，Y = 10，Y = 11，Y = 12，Y = 9。对于德国我select了X = 2和Y = 8和Y = 7。我只是添加了一些带有名称的文本框来隐藏数字X值。但我希望这是dynamic的，所以我试图在这里设置X值标签：但我无法改变水平值。我怎么解决这个问题？