我有一个脚本，用于保存基于两个单元格/命名范围（FailReportSN和FailReportDD）的内容的Excel模板。 我的问题是，最终用户并不总是记得在运行下面的save脚本之前将值input到这两个单元格中。 我需要做的是修改我的当前脚本，只保存两个单元格中的值。 Sub saveAsFATPMM() Dim PathMac As String, Path As String, FolderPath As String If Application.PathSeparator = ":" Then FolderPath = "Volumes:Server:Groups:METI:Quality Control:METIman:" PathMac = FolderPath & Sheets("Failure Report").Range("FailReportSN").Text & _ " – FATP – " & Sheets("Failure Report").Range("FailReportDD").Text & ".xlsm" 'Format(Date, "mm-dd-yy") ThisWorkbook.SaveAs Filename:=PathMac, FileFormat:=53, CreateBackup:=True Else FolderPath = "\\server\server\Groups\METI\Quality Control\METIman\" Path = […]

我有它在哪里将打开Internet Explorer给用户另存为框，然后退出。 但是，我宁愿如果不是用户必须导航到正确的文件夹，该目录来自工作表中的单元格，并将网页保存为PDF。 我安装了完整的Adobe。 代码： Sub WebSMacro() Dim IE As Object Dim Webloc As String Dim FullWeb As String Webloc = ActiveSheet.Range("B39").Value FullWeb = "http://www.example.com=" & Webloc Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate FullWeb Do While IE.Busy Application.Wait DateAdd("s", 1, Now) Loop IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER Application.Wait DateAdd("s", 10, Now) IE.Quit Set IE = […]

我需要把A列的date放在B列中。这只是一个示例，我有超过1000个logging。

我有格式化单元格的程式化的电子表格供用户input数据。 我正在尝试创build一个macros用于一个button清除所有的input单元一次。 但是，我正在努力寻找和查找格式函数。 为了简单起见，在这个代码中，我只是在寻找一些说“零售”的单元。 当我运行代码时，myRange的值始终为Nothing，即使电子表格中有一个值为“Retail”的单元格。 任何想法，为什么范围是什么？ Public Sub reset() 'reset all input fields to no value msg = MsgBox("Are you sure you want to delete all data and reset all files to original state?", vbYesNoCancel, "***Warning***") If msg = vbYes Then Dim inputCell As Long Dim noteCell As Long inputCell = RGB(255, 204, 153) noteCell […]

我无法理解下面的函数在做什么。 该function本身具有将数据复制到工作Sheet History 。 但是，我不明白这是怎么回事？ Sub histFunc() Dim Y As String Y = "R" & Range("G7").Value Sheets("Sheet History").Select Range("h17").Select Cells.Find(What:=Y, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Range(Selection, Selection.End(xlToRight)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet Current").Select End Sub 任何build议这个macros如何运作？ 我很感激你的回复！

我想创build一个Excel文件（使用PhpExcel），并填写一个MySQL查询的内容。 我只有一列，所以结果如下所示： $sheet->setCellValueByColumnAndRow(0, $i, $content) 所以我必须在我的查询中循环，并创build一个计数器来填充对应于我的内容的列ptlum的每个项目的每一行。 所以目标是得到以下结果： 1 AX001 2 AX003 3 AX012 代码是这样的： $column = 1; while($data = mysql_fetch_assoc($result)) { $workbook = new PHPExcel; $sheet = $workbook->getActiveSheet(); $sheet->setCellValueByColumnAndRow(0, $column, $data['ptlum']); //echo($column. " " . $data['ptlum']. " "); $column = $column + 1; //or $column++; 问题是，我的Excel文件是空的。如果我把一个数字而不是$列在setCellValueByColumnAndRow线它的工作原理。 但variables不起作用。另一方面，如果我把“$列= 1;” 在循环内，我的Excel文件将总是只包含一行。 你有想法吗？ 非常感谢你 ！

我需要将范围src.Range("A1:A" & 10)每个单元格与范围src3.Range("A1:A" & 3)单元格进行比较，并且仅在src单元格不等于任何src3单元格。 如果我手动列出每个比较（作为评论 – 我最终得到的结果，它的工作原理，但会有更多的比较范围）。 但是，当我尝试循环它时不会。 我不能把IF从那里分离出来。 我找不到替代品。 For temprow = 1 To rngSelectionTable.Rows.Count tempselected = rngSelectionTable(temprow, 2).Value Crit = rngSelectionTable(temprow, 5).Value If tempselected = True Then For Each r In src.Range("A1:A" & 10) 'If r <> 0 _ And r <> src3.Range("A1") _ And r <> src3.Range("A2") _ And r <> […]

我想在Excel中使用RAND（）函数来生成一个介于0和1之间的随机数。 但是，我希望80％的值落在0和0.2之间，90％的值落在0和0.3之间，95％的值落在0和0.5之间等等。 这让我想起我从前曾经应用过统计学课程，但是并没有学到什么课程。 如何使用Excel公式来实现这个结果的最好方法是什么？ 或者，这种统计计算是什么？我可以谷歌周围的任何其他指针。 ================= 用例： 我有一个单一的米读数，我想重复7次（每一个新的一个月）。 每列有55000行。 虽然每个月的读数需要变化，但按照时间序列，每个读数应该有7个现实的读数。 其目的是产生现实的数据转化为热图（即标志偏远的抄表）

我试图在Excel中设置数据types为date格式（'yyyy-MM-dd'），为此我写了以下一段代码： …. Row r = null; CellStyle cellStyle = workbook.createCellStyle(); //CreationHelper createHelper = workbook.getCreationHelper(); cellStyle.setDataFormat( workbook.createDataFormat().getFormat("yyyy-MM-dd")); for(int i =0;i < 2;i++){ switch(i){ case 0: r = sheet.getRow(0); r.setRowStyle(cellStyle); break; case 1: r = sheet.getRow(1); r.setRowStyle(cellStyle); break; default: break; } } …. 我只发布了前两行的格式以供参考。 但是，当我运行我的代码，并打开Excel表格，并检查前两行的单元格的格式，那么它只是一般的。 更改没有反映在Excel工作表中。 我没有得到我在这里做错了什么。

我正在处理一个Excel表格，在这个表格中，我将数据组织成行，并且需要一种方法来运行VBAmacros，它将根据特定行中的数据执行程序。 我正在努力实现的是find一种机制，让用户只需点击button就可以完成这个任务。 另外，用户应该能够复制现有的行（和macros触发器），并执行与新行相关的macros，而不必进行任何代码修改。 我到目前为止所尝试的是excelbutton，但它无法绑定到某个单元格。 每次添加新行时，也必须手动分配macros。 我也试着“Worksheet_SelectionChange”事件过滤到包含链接文本的某个列。 这样可以正常工作，但有些用户使用箭头键在表单内导航，如果macros单元格被选中，则会意外触发macros。 另外，鼠标光标在hover时不会变成指向手指。 最后一次尝试是尝试=HYPERLINK("#'Sheet1'!E3";"Run macro")function，并将其与“Worksheet_FollowHyperlink”一起使用。 但是，在这种情况下，如果超链接指向当前表单，则不会触发事件。 那么有没有什么新的想法，或者可以改进其中的一些来克服我所描述的问题？