msgbox

    0热度

    1回答

    首先我很抱歉,我对VBS非常非常陌生,但我正在尝试创建一个小脚本,然后在网站上完成一系列关键笔划,然后转到另一个网站,并完成另一系列的关键笔画。 虽然在第一个网站上,我需要问一个问题,如行动完成。是或否 如果否,那么脚本需要返回到脚本的开始处。如果是,那么脚本需要继续。 后来,在第二个网站上,几个按键后,我需要问另一个问题天气来循环整个过程或停止。 我搜索了一些消息框的解决方案,但它似乎并没有工作

    0热度

    3回答

    这是第一次使用Excel与VBA一起工作。我正在练习使用公式并使用Excel单元格和MsgBoxes显示值。 我目前的问题很可能是一个简单的修复,但还没有弄清楚。 我要让我MSGBOX显示每行被填充后如下: 味精弹出 Socks Gross Sale is 56.37 味精弹出 Lotion Gross Sale is 59.12 ..etc 然而,当我第一次尝试运行我注释掉的代码行Ms

    -1热度

    1回答

    我必须编写一个计算二次方程并找到其根源的程序。根据必须通过MsgBox-es显示,变量A,B和C 必须通过InputBox-es输入。现在我已经写了这个,但它不知何故不起作用,我不明白为什么。 **我是新来的Visual Basic .. Public Class Form1 Dim A As Integer Dim B As Integer Dim C As Integer Dim De

    0热度

    1回答

    我想知道如何做到这一点,当用户点击一个按钮,然后出现一个MsgBox,例如,单词“猫”。现在,由于用户看到了单词cat,如果他再次点击该按钮,在剩下的时间内程序打开,它会说“你已经知道这里有一只猫!”。 我该如何解决这个问题?

    2热度

    1回答

    我正在为excel 2013设计一个vba用户表单,其中我使用英文和波斯文本,问题出在我使用msgBox中的两种语言的混合,文本的位以错误的顺序出现,数字应该显示在最后。这里是代码: Private Sub CommandButton1_Click() MsgBox "نام" & " - " & "نام" & " - " & "VF" & " - " & 52 & " ." _

    2热度

    1回答

    您好我在Excel VBA下面的代码, Sub A() Workbooks.open ("A.xls") ActiveWorkbook.Worksheets("1").Select ActiveSheet.CommandButton1.value = true End Sub 我打开另一个工作簿(内部保护的代码,所以我不能修改工作簿“B”),然后单击工作表上的运

    -2热度

    1回答

    我一直收到多个带有相同错误消息的MsgBox。我如何避免这种情况发生? Private Sub BtnCalc_Click(sender As Object, e As EventArgs) Handles BtnCalc.Click Dim intValue1 As Integer Dim intValue2 As Integer Dim intValue3 As

    0热度

    1回答

    我的工作与Access 97 我有连接到父窗体子窗体。 父窗体基于数据库表和基于select查询的子窗体:选择属于组的办公室。 我将允许用户从他的群拉的办公室,所以我想过使用删除按钮,并使用该事件删除如下: Private Sub Form_Delete(Cancel As Integer) If MsgBox("are you sure?", vbYesNo, "MsgBox") = vbY

    -1热度

    1回答

    我正在开发使用串行通信进行数据传输的软件。我的问题与richtextbox有关,我想在单词“更改配置?”时创建一个弹出的输入框。出现在richtextbox中。 请帮帮我。 这是我的配置: Private Sub btnWrEr_Click(sender As Object, e As EventArgs) Handles btnWrEr.Click SerialPort1.WriteL

    1热度

    1回答

    我试图启动“GetPID.exe”并存储错误代码。 这是该.vbs代码: Set WshShell = CreateObject("WScript.Shell") strPath = Wscript.ScriptFullName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.Get