内容导航:


一、excel如何下拉递增


1、在电脑桌面里将表格打开。

2、打开表格之后在表格里面输入一个长数字。

3、然后下拉这个长数字,发现是自动递增,这是因为单元格已经被设置为文本格式,所以下拉的时候数字是无法递增。

4、可以选中一列空白的单元格,并右键单击鼠标点击设置单元格格式进入。

5、在单元格格式里面选择数值,并将小数位数改为零。

6、在单元格里面输入需要设置递增的数字,然后下了填充,并在填充样式中选择填充序列。

7、这样就可以将长数字下拉递增了。



二、怎么样增加excel的下拉菜单长度


可通过VBA实现下拉框加长的(显示更多待选项)的需求.

  1. 按Alt+F11,调出VBA,在VBAProject 右键→插入→用户窗体

    请点击输入图片描述

  2. 调整窗体成细长的形状

    请点击输入图片描述

  3. 分别增加一个按钮和列表框

    请点击输入图片描述

  4. 在工作表某列把待选内容输入好(此例放N列);双击列表框,在弹出的窗口中输入以下代码

Private Sub UserForm_Initialize()

n = Sheets("记录明细").Range("N" & Rows.Count).End(xlUp).Row

arr = Sheets("记录明细").Range("N3:N" & n)

ListBox1.List = arr

End Sub

5.单击"UerForm1",双击 "选择"按钮

6.在弹出的VBA窗口中输入以下代码

Private Sub CommandButton1_Click()

Dim s As String

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) = True Then

s = s & ListBox1.List(i, 0)

End If

Next i

ActiveCell = ActiveCell & s

Unload Me

End Sub

7.在工作表名称上右键→查看代码

8.输入以下代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 4 And Target.Row > 2 Then

UserForm1.Show

End If

End Sub

9.双击待选单元格,点击需要的内容,再点选择