Tag: 全局variables

excel vba给下一个variables赋值

每次运行它时，我都会得到一个值。 我想要做的是每次运行子程序时向另一个添加一个variables。 例如，我在子里面有x，a，b，cvariables。 可以说子运行4次，每次运行，x得到以下值：1.“5”2.“2”3.“7”4.“11” x给予a的值。 a，b和c写入单元格，结果应该是| 5 | | – | | – | 在第二次运行时，b应该得到a和a的值应该得到新x的值。 比我们得到的结果：| 2 | | 5 | | – | 第三轮，我们也有交stream：| 7 | | 2 | | 5 | 第四：| 11 | | 7 | | 2 | 在逻辑上这可以通过c = b来解决，b = a，a = x; cell = a＆b＆c。 然而结果反而是无稽之谈。 码： Sub […]

将Excel信息导入Matlab后对variables进行sorting

你好，我正在学习如何使用Matlab的第一次，我被困在一个任务。 它的一个两部分任务，第一个是写一个Matlab脚本，并输出一个Excel文件，我已经完成了。 M = {'City' 'Population'; 'Chandler' 249146; 'Gilbert' 229972; 'Glendale' 234632; 'Mesa' 457587; 'Peoria' 162592; 'Phoenix' 1513367; 'Scottsdale' 226918; 'Surprise' 123546; 'Tempe' 168228; 'Tucson' 526116}; M = xlswrite('largest_cities_in_arizona.xls',M) 第二部分是创build一个读取Excel文件的Matlab脚本，创build两个名为city_population和city_name的variables，然后根据总体以降序对两个variables进行sorting。 我大部分都明白了。 [A, B] = xlsread('largest_cities_in_arizona.xls', 1, 'A2:B11'); city_population = sort(A, 'descend'); city_name = sort(B); 我遇到的问题是试图通过city_population对city_name进行sorting。 在导入数据时，Matlab会将city_name作为10×1单元格和city_population作为matrix，如果我尝试根据city_population对B进行sorting，则会给出尺寸错误。 有没有其他的方法来做到这一点？ 任何帮助或信息将不胜感激。

尝试使用variables来引用Excel中的列。 我应该使用什么function？

尝试按行按字母顺序对数据进行sorting，但不是在每行的所有列中sorting。 例如：按字母顺序排列J7到U7，然后按照J8到U8顺序排列，直到通过U2000到J2000，同时将每个项目保留在其行内（如同第7行中的所有单元格应该在第7行的末尾）。 似乎我需要使用macros/ VBA，因为Excel只允许您按字母顺序sorting一行。 如果我select多行进行sorting，它仍然只sorting第一行。 至于我可以用什么样的macros，我已经做了一些研究，但似乎没有任何工作。 我发现的一件事就是按照数字来sorting，但不能按字母顺序sorting。 这是我一会儿得到的。 我logging了一个自己的macrosselect和sorting的行，以便我希望至less得到所有的代码： Sub Macro4() ' ' Macro4 Macro ' ' Keyboard Shortcut: Option+Cmd+j ' Dim lngIndex As Long Dim strArray(9 To 11000) As String Dim intCounter As Integer Dim x As Integer intCounter = 1 x = 9 For lngIndex = LBound(strArray) To UBound(strArray) intCounter = intCounter + […]

在循环内创buildvariables

我在VBA工作，我想知道是否有可能在一个while循环内创build和命名variables。 我的目标是查看工作表中的特定列，并创build其值为该列的单元格内的文本的variables。 理想情况下，variables名称和它们的值应该是： party1 = "Owner" party2 = "Contractor" party3 = "Subcontractor" 等等基于一些党的依靠。 到目前为止我有： Dim i As Integer, j As Integer i = 2 j = 1 Do While Cells(i, 7).Value <> "" Dim partyName As String ' Pulls the text from the worksheet cell partyName = Cells(i, 7).Text Dim curNum As String curNum = […]

如何调用名称作为文本传递给另一个variables的variables的值？

我需要调用一个variables的值作为另一个variables。 例如 我将FirstVariable = "One" 然后我把名字分配给文本 SecondVaribale = "FirstVariable" （注意这里是“TEXT”） 那么现在我可以调用或分配SecondVariable以任何方式返回值为One ？ 意思是这应该返回One ： Range("A1").Value = SecondVariable 那可能吗？ 因为我有大约40个这样的variables需要在Excel中的映射表中进行。 简单的方法是手动分配variables，这将需要以后手动干预，这是我想避免的。

Excel将范围设置为单元格到variables

所以我现在正在使用这个代码 Sub splitUpRegexPattern() Dim regEx As New RegExp Dim PATTERN As String Dim strInput As String Dim strReplace As String Dim Myrange As Range rwcnt = WorksheetFunction.CountA(Range("A:A")) Set Myrange = ActiveSheet.Range("A1:A") 我正在使用rwcnt来计算行数，并且我想重新使用这个macros，而不必每次都手动更改范围。 我想将范围设置为类似的 Set Myrange = ActiveSheet.Range("A1:A[rwcnt]") 这可能吗？ 我想这样做，而不是使用类似的东西 For i = 1 To rwcnt 任何意见，将不胜感激，谢谢。

VBA – 如何检索一个文本框中的值，并使其出现在另一个？

我有Excel中的用户窗体。 多页面的第一个选项卡有一个名为Staffwage_TextBox的variables。 有人预计会input一个值。 我想检索这个值，并使其出现在名为staffwage的TextBox中的下一个多页上。 到目前为止，我有这个代码： Private Sub staffwage_Change() Dim trial As String Staffwage_TextBox.Characters.Text staffwage = Staffwage_TextBox.Value trial = Staffwage_TextBox.Characters.Text End Sub 任何帮助将不胜感激，谢谢:)

怎么做 '？' 等于一个数字，所以当我通过一个列表。 它会把它算作一个零。 （python）

正如标题所说，我想让它读“？” 从一个Excel表格，并将其视为一个零时，它会超过它。 for eachLine in train: tempList=eachLine.split(',') avg0=float(tempList[0]) ageL.append(avg0) avg1=float(tempList[1]) sL.append(avg1) avg2=float(tempList[2]) rbsL.append(avg2) avg3=float(tempList[3]) fbsL.append(avg3) avg4=float(tempList[4]) ogtL.append(avg4) avg5=float(tempList[5]) hemo.append(avg5) 我知道它很丑，但它对我有用。 任何帮助将不胜感激，谢谢。

VBA：使用公共variables为其他潜艇

Excel的VBA。 我想创build一个variables，稍后我将使用其他一些子variables。 在关于这个的其他问题之后， Public Counter As Integer 然后，我继续给这个variables赋值 Sub Count() Set sh2= ActiveWorkbook.Sheets("Sheet2") Set sh1 = ActiveWorkbook.Sheets("Sheet1") Dim rng As Range Dim trng As Range Set trng = sh2.Range("A4:HV4") For Each rng In trng If rng.Value = "Name" Then Counter = Range(rng, rng.End(xlToLeft)).Columns.count End If Next rng 如果我尝试在相同的数值上进行testing，例如 sh1.range("B1").value = counter 我得到正确的号码。 但是，一旦我尝试在另一个子上调用它，值是0！ Sub Test() […]

Excel VBA – 在IF语句中将工作表指定为variables

在下面的一段VBA代码中，如何用variables“cPage”replace工作表“ContolPage”的引用？ ActiveCell.FormulaR1C1 = "=IF(RC[5]="""","""",ControlPage!R[-13]C[-2])" 谢谢