Tag: 文本框

使用Excel表格添加数字: 我创build了一个有五个文本框的Excel表单。这些文本框接受任何数值。一旦input五个数字，就会有第六个文本框显示这些值的总和。这些值的总和应该始终是100％。这是我的代码： Private Sub TextBox1_Change() Dim Value As Single Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value) TextBox6.Value = Value End Sub 我对所有文本框更改事件具有相同的代码。不幸的是，这是行不通的。当我input10作为我的input，而不是显示100%它显示10203040作为结果。我究竟做错了什么？

循环使用VBA的Txt文件 – DIR（）问题: 我有以下代码，我试图修改某个特定文件夹中的某些Txt文件。我首先要检查循环的作品。但是，当我运行macros代码只能读取第一个文件，然后在strFileName = Dir（）有一个运行时错误。我不确定是什么问题。我能想到的唯一问题是我正在两个模块表之间移动代码。该文件夹位置正在保存在Excel工作簿的工作表1中的一个txt框中。 Sub Txt_File_Loop() Public TextFile As String Dim FolderLocation As String Dim strFielName As String Dim SaveLocation As String 'Location is present in a Text box FolderLocation = Sheets(1).FolderLocationTXTBX.Text strFileName = Dir(FolderLocation & " \ * ") Do Until strFileName = "" TextFile = FolderLocation & "\" & […]

在文件被“打开文件”菜单select并加载之后，如何将Excel单元格值加载到tkinter GUI中的空文本框中？: 我用tkinter构build了一个GUI。有两个button，一个用于加载Excel表格并parsing所有单元格并打印它们的值。另外，我有一系列带有标题的空文本框。我想要实现的是将parsing的Excel单元格加载到variables上，然后用单元格值（即所讨论的variables）填充空的文本框。任何指针将不胜感激。这是我的代码到目前为止： #!/usr/bin/python3 from tkinter import filedialog from tkinter import * import openpyxl from openpyxl import load_workbook #Define Window Geometry main = Tk() main.geometry("1024×768") main.title("Window Title") #Define Empty Cells to be Filled in by Excel File & Calculation def OpenDataInputSpreadsheetCallBack(): main.iconify() file_path = filedialog.askopenfilename(initialdir = "file_path_goes_here",title = "Choose Input Spreadsheet",filetypes = […]

locking文本框在工作表中移动和resize，只编辑文本Excel VBA: 我在vba中创build一个TextBox，用户input一个值然后在表单中search它，就像你在这里看到的那样我的问题是我想locking这个文本框移动，用户可以编辑框中的文本。我正在尝试属性，并选中“locking”，并取消选中“locking文本”，然后保护表 Sub protect_TextBox() ActiveSheet.Protect UserInterFaceOnly:=True 'rest of my code… End Sub 它locking我的TextBox移动和resize，用户只能编辑里面的文本但它也locking了许多function，如过滤，格式化…基本上我可以只select单元格。任何build议，请如何冻结仅文本框，并保持其余细胞不受保护？非常感谢你。

在文本boxt中按回车键，然后转到特定的单元格: 如何在文本框中移动光标并在文本框中input？这是我的代码，它给我一个语法错误。 Private Sub TextBox2_Change() Sheets("30").Range("D18") = TextBox2.Value TextBox2.Enter Then Sheets("30").Range("E19").Select End Sub

采取文本框input并移动到特定的单元格。: 我正在编写一个macros来从Excel工作表中提取各种数据，并将其置于更有用的顺序。我碰到的一个问题是，我想要的数据的一部分包含在一个文本框中。我想从文本框中提取数据，并将其粘贴到单元格A100 。该文本框始终被称为ActivityA 。

在Excel VBA中自动完成文本框: 我正在创build一个基于特定列中的文本自动完成文本的Excel工作表。在试图让自己失败后，我在网上查找了可以修改并join到我的程序中的示例代码。（而不是抄袭）我从http://www.ozgrid.com/forum/showthread.php?t=144438下载了Workbook1.xls 代码是 Option Explicit Dim ufEventsDisabled As Boolean Dim autoCompleteEnabled As Boolean Dim oRange As Range Private Sub TextBox1_Change() If ufEventsDisabled Then Exit Sub If autoCompleteEnabled Then Call myAutoComplete(TextBox1) End Sub Sub myAutoComplete(aTextBox As MSForms.TextBox) Dim RestOfCompletion As String On Error GoTo Halt With aTextBox If .SelStart + .SelLength = Len(.Text) Then […]

表单VBA中错误的文本框: 我正在做一个表单，我发现自己与TextBox的一个奇怪的问题。我要求用户插入一些数据，当它做的时候，文本框会改变数据。例如，如果用户插入：2013年3月1日，然后运行窗体，则窗体改为使用原始数据执行代码， 01 / 03 /2013。我意识到，总是改变一天一个月，但从来不是一年。额外的信息，我从来没有“告诉”的forms，它将要处理的数据是一个date。我正在努力工作，所以任何帮助将不胜感激。如果需要额外的信息，请让我知道。码： Private Sub CommandButton1_Click() ThisWorkbook.Sheets("Hidden").Range("D1").Value = TextBox1.Value ThisWorkbook.Sheets("Hidden").Range("D2").Value = TextBox2.Value If TextBox1.Value < TextBox2.Value Then If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "…", vbExclamation, " …" Else Run "macro" ThisWorkbook.Sheets("SUMUP").Range("D11").Value = TextBox1.Value ThisWorkbook.Sheets("SUMUP").Range("D12").Value = TextBox2.Value End If Else MsgBox "…" & […]

在asp.net中从excel中读取数据: 我想在一个文本框中读取整个excel表单的数据。这可能吗？我知道从Excel中读取单元格数据到文本框的代码。 PrivateSub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Dim xlaTest As Excel.Application = CType(CreateObject("Excel.Application"), Excel.Application) xlaTest.Visible = True Dim wbkTest As Excel.Workbook = xlaTest.Workbooks.Open("D:\Tests\VBTrials\ExcelTests\TestWorkbook.xls") Dim wshTest As Excel.Worksheet = DirectCast(wbkTest.Worksheets("Sheet1"), Excel.Worksheet) TextBox1.Text = wshTest.Range("B2").Value wbkTest.Close() xlaTest.Quit() EndSub

复制其他工作表上其他文本框中的文本框中的内容: 我在电子表格中有四张表。每张纸上都有一个文本框。当我在sheet1上input文本框时，我希望sheet2，sheet3和sheet4上的文本框填充相同的值。