小编use*_*603的帖子

计算另一个工作表中的行数

我查看了建议的问题以找到问题的答案.最近的问题称为:计算不同Excel工作表中不同Excel工作表 计数行数的行数

该问题的解决方案对我不起作用.

我试图计算不同工作表中的范围内的行数而不是活动工作表.这是我的代码:

Sub verbflashcards()

Dim wordcount As Long

With Worksheets("Verbs")
wordcount = .Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.Count
End With

MsgBox (wordcount)
End Sub
Run Code Online (Sandbox Code Playgroud)

我有一个名为Verbs的工作表,它是工作簿中的第二个工作表.我试过了:

With Verbs
With Sheet2
With Sheets("Verbs")
With Sheets("Sheet2") 
Run Code Online (Sandbox Code Playgroud)

他们似乎都没有工作.

excel vba excel-vba with-statement

8
推荐指数
2
解决办法
1万
查看次数

在VBA中处理输入框中的非整数

我有一个名为"need"的变量,它被定义为一个整数.出现一个输入框并提示用户.如果他们输入一个整数,它会显示Msgbox"Got your number".如果我输入一个字符串,我得到运行时错误'13':输入不匹配.我想如果我只是使用了Else声明,那就说再试一次.尽管如此,它并没有这样做.我是否需要在Else声明中处理错误?如果是这样,这些线是什么?

Sub gadgetmanuf()

Dim need As Integer
'Dim rawneed As Single
'Dim rawavailable As Single


    need = InputBox("How many gadgets are needed?", "Insert a number")

    If TypeName(need) = "Integer" Then
        MsgBox ("Got your number")
    Else
        MsgBox ("Try again")
    End If

End Sub
Run Code Online (Sandbox Code Playgroud)

excel vba excel-vba

3
推荐指数
1
解决办法
4175
查看次数

Python程序在读取文本文件时打印额外的空行

我正在使用 python 3.3。作为示例,我有一个包含三行文本的文本文件。我想选择一个数字,它将显示该行号的内容。由于某种原因,它打印了我想要的行,并在其下面打印了一个空行。

文本文件如下所示:

AAPL,Apple,700
P,Pandora,32
MW,Men's Warehouse,54.32
Run Code Online (Sandbox Code Playgroud)

如果 i 为 2,我得到的解释器输出:

>>
P,Pandora,32

>>
Run Code Online (Sandbox Code Playgroud)

代码在这里:

line_number = int(input('Enter the line number: '))
with open('C:/Python33/myprogramtests/filewrite1.txt') as f:
    i = 1
    for line in f:
        if i == line_number:
            break
        i += 1
    print (line)
Run Code Online (Sandbox Code Playgroud)

我确实在打印(行)后尝试了逗号,但它不起作用。我猜我错过了一些代码,这些代码只会打印该行而不是额外的空白行。

python text file python-3.x

3
推荐指数
1
解决办法
6355
查看次数

标签 统计

excel ×2

excel-vba ×2

vba ×2

file ×1

python ×1

python-3.x ×1

text ×1

with-statement ×1