Tag: messagebox

如何创build超过160行的消息框（10836），根据选中的行显示多列中的文本？: 我使用下面的代码来创build一个消息框，它显示单元格A1，A2，A3 …直到A9被选中，然后显示引号中的文本以及单元格V1（+21），W1 （+22）和X1（+23），例如当selectA1时，selectA2时，将显示下面代码中的文本string以及单元格V2，W2和X2等中的文本。我需要为所有的10836行这样做，但似乎160个案件是使用这种方法的限制。有没有更有效的方法来做到这一点？任何帮助，将不胜感激 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then Select Case Target.Row Case 1, 2, 3, 4, 5, 6, 7, 8, 9 MsgBox "Changes : " & Cells(Target.Row, Target.Column + 22) & vbNewLine & " ABC Comments: " & Cells(Target.Row, […]

如何在与列进行比较时创build一个循环: 我想validation，如果列AP大于列X显示一条消息，但是我想这个消息只出现一次，只有一次。例如，如果单元格ap7比显示消息大于x7，则用户单击确定。那么如果单元格ap8小于x8，我不希望以前的validation信息再次出现。 Dim lstrw As Long Dim i As Long With Sheets("Main") lstrw = .Range("AP" & Rows.Count).End(xlUp).Row For i = 2 To lstrw If .Cells(i, "AP").value > .Cells(i, "X").value Then MsgBox "Your Pieces Are Over Suggested", vbOKOnly Exit For End If Next i End With

使用Win32com从Python内部处理Excel消息框: 我试图处理一些本应该是xls文件的文件，但事实certificate它们是别的东西（根据我在python-excel板上获得的一些帮助，这些文件是Web Archive文件或（单文件网页（* .mht ，* .mhtml））。我可以使用Excel打开这些文件，但是我得到一条消息，在我可以继续前进之前，必须先解除消息，消息是： – 正在尝试打开的文件filename.xls的格式与由文件扩展名指定。在打开文件之前，确认文件没有被修复并且来自可信来源。是否要打开文件？如果我点击是，文件打开，它看起来像一个Excel工作簿。一些表名被截断。果然，当我点击保存为默认格式，显示的是单个文件的网页。现在，如果我保存并selectExcel 97-2003格式，重命名为我的新名称，并点击保存button该文件，然后打开与Excel中，没有未来的问题。我一直在尝试弄清楚如何编写一些代码来打开并保存这些文件作为真正的xls文件，所以我不需要有人在海外打开并保存它们。我已经非常接近了，但最后一个问题仍然存在，当我用一个新的文件格式保存它时，我得到了一个警告框，警告我会有一些失真的保真度。我不知道如何抑制它，并接受失真的保真度？这里是补丁拼凑在一起，似乎工作 import win32com.client xl=win32com.client.Dispatch('Excel.Application') xl.visible=0 # I have noticed that if I don't set visible to 0 I can't get any response srce=xl.Workbooks.Open(r'c:\testdd.xls') # testdd is my file that is evidently really not an excel file srce.SaveAs(r'c:\newtttxt2.xls',FileFormat=1) # this is […]

VBA msgbox编号格式化: 我试图在Excel中插入一个消息框，这是我为某些计算所做的macros的一部分。那么，我的macros做GoalSeek函数，最后我希望它在消息框中显示计算的值。出现这个问题的原因是，当macros进行计算并在excel表单中显示的结果是百分比数字时，它的格式如0.8383854828321838 ，我希望它被格式化为百分比，就像在Excel工作表中一样，如83,84% 。可以在VBA MsgBox格式化单元格值吗？！？！你能帮我吗？我在这里粘贴了vba的代码，看看目前的情况。 Sub Anuitet() range("O2").GoalSeek Goal:=0, ChangingCell:=range("O5") range("O3").GoalSeek Goal:=0, ChangingCell:=range("F2") MsgBox "Efektivna kamatna stopa za konfigurisani aranžman je " & range("f2").Value & ".", vbOKOnly, "Obracun efektivne kamatne stope" End Sub

Excel：如何从数据库中缺less的表中找出值: 我试图做一些代码，从表中获取数据，并将其与另一个表中的数据进行比较。我有两张桌子。第一个包含我所有的客户，第二个包含客户名称和销售货物数量的Excel数据库。我试图找出制作消息框的方法，在按下命令button后，将显示表2中的哪个客户在表1中缺失。我试图在VBA中做一些事情，但我不太熟练。

如何让用户在MATLAB中inputEXCEL文件的名称？: 我正在使用MATLAB R2010b。我正在用k-meansalgorithm进行聚类。每次执行时都会显示不同的结果。而且我希望在Excel中保存它。这是我的代码片段： y = [data x]; xlswrite('clustering.xls', y, 'KMEANS', 'A1'); 正如我之前所说; 每次执行时都会显示不同的结果，因此clustering.xls会始终更新，更新和更新 – 而不保存旧文件。我想保存所有的历史。我认为唯一能解决这个问题的就是用户重命名他们自己的文件 – 但效率不高。所以，我想我需要一个消息框让用户input他们的xls文件的名称。如何使它成为可能？任何想法？我感谢所有的答案。谢谢。

消息框中有多个variables: 我正在寻找多个variables到一个消息框：ID，客户名称，添加date，地点和状态。目前，我只能得到ID显示，其他variables出现运行时13错误。我的代码如下。 Sub LookupTicket() Dim ibox, tid As Range Dim dad, sta, ven, cna As Variant Set Sheet = Worksheets("ControlSheet") dad = Range("DateAdded_CS").Value sta = Range("Status_CS").Value ven = Range("Venue_CS").Value cna = Range("CustName_CS").Value ibox = InputBox("Enter Ticket ID:", "Redeem Ticket") If ibox <> "" Then Set tid = Sheet.Range("A:A").Find(ibox) If tid Is Nothing Then MsgBox […]

消息框在修复包含错误的单元格时保持显示: 请问你能帮帮我吗？我想作出validation调查的消息框。消息框中包含消息，因为填充错误。我想我的消息框不断显示，所以我可以单击包含填充错误的工作表，而不closures消息框。所以，消息框会引导我修复那张表中的错误这是我以前的代码： Private Sub CommandButton1_Click() Dim error As String error = “” If (vehicle = True) And (gasoline_month = 0) Then error = error & “- the expenditure of gasoline should not be empty” & Chr(10) End If If error = “” Then msgbox “clean”, vbInformation Else MsgBox error, vbCritical End […]

在VBA脚本中单击Javascript确认button: 我的代码的目的是在具有指定标准的网站上运行报告。我想search所有的“距离”标准，这会提示一个消息框询问我是否确定。我希望我的代码能够点击“确定”button。但是，一旦“提交”button被击中并且被挂起，直到“确定”button被击中，我的代码就会停止运行。注意：我无法更改HTML或JavaScript 这是VBA代码 Sub Data_Grab() 'Open Internet Explorer and webpage Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "insert website here" 'wait for page to finish loading Do While IE.Busy Loop 'get a reference to the search form by finding the id in the web page's object model […]