创建Excel的自定义命令 - VBA

Submitted by techrev on Sun, 03/05/2017 - 06:05
excel custom commands

创建Excel的自定义命令 - VBA  (Chuàngjiàn Excel de zì dìngyì mìnglìng - VBA)

您可以创建用于Excel的自定义命令以执行某些预定操作。这些命令可以直接在单元格内输入,以执行所需的操作(计算)

Nín kěyǐ chuàngjiàn yòng yú Excel de zì dìngyì mìnglìng yǐ zhíxíng mǒu xiē yùdìng cāozuò. Zhèxiē mìnglìng kěyǐ zhíjiē zài dānyuán gé nèi shūrù, yǐ zhíxíng suǒ xū de cāozuò (jìsuàn)

请注意,这些命令是在VBA上生成的,因此请参考我们以前的文章中有关宏和VBA的基本概念

Qǐng zhùyì, zhèxiē mìnglìng shì zài VBA shàng shēngchéng de, yīncǐ qǐng cānkǎo wǒmen yǐqián de wénzhāng zhōng yǒuguān hónghé VBA de jīběn gàiniàn

示例命令:ADD

Shìlì mìnglìng:ADD

 

命令ADD到列A和B的值并显示在C中,命令“ADD”将在列C的单元格中键入

Mìnglìng ADD dào liè A hé B de zhí bìng xiǎnshì zài C zhōng, mìnglìng “ADD” jiàng zài liè C de dānyuán gé zhōng jiànrù

脚步 :Jiǎobù:

创建一个新的excel文件,右键单击Sheet1打开VBA编辑器(右键单击并选择视图代码) 然后将文件另存为* .xlsm(启用宏的工作簿)

Chuàngjiàn yīgè xīn de excel wénjiàn, yòujiàn dān jī Sheet1 dǎkāi VBA biānjí qì (yòujiàn dān jī bìng xuǎnzé shìtú dàimǎ) ránhòu jiāng wénjiàn lìngcún wèi* .Xlsm(qǐyòng hóng de gōngzuò bù)

将这些VBA代码粘贴到编辑器的侧面

Jiāng zhèxiē VBA dàimǎ zhāntiē dào biānjí qì de cèmiàn

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Rownumber As Long, result As Double
On Error GoTo errH
If Target.Count = 1 And Target(1).Column = 3 Then
If LCase(Target.Value) = ("add") Then
Application.EnableEvents = False
Rownumber = Target.Row
result = Cells(Rownumber, 2).Value + Cells(Rownumber, 1).Value
If result Then
Target.Value = result
Else: Target.Value = ""
End If
End If
End If

errH:
Application.EnableEvents = True
End Sub

在前5行的列A和B中放入一些数字。 然后在单元格C(每个相同行)内键入“ADD” 您可以看到A和B的SUM将显示在C中

Zài qián 5 xíng dì liè A hé B zhōng fàng rù yīxiē shùzì. Ránhòu zài dānyuán gé C(měi gè xiāngtóng xíng) nèi jiànrù “ADD” nín kěyǐ kàn dào A hé B de SUM jiāng xiǎnshì zài C zhōng

 

Tags