excel關於VBA流水號，請各位大大幫幫忙

wsx1130
個人積分：6分
文章編號：78785313

6分

樓主

2020-08-22 0:15

excel關於VBA流水號，請各位大大幫幫忙
no .的流水號依這公式可以
但是serial的流水號不知道怎麼設定(另外給它開始及結束的序號，一定為6位數)
再來就是畫框線，想要依據a欄畫框線，畫到第4列有文字的地方
有沒有vba可達成的，請高手幫幫忙

2020-08-22 0:15 發佈

文章關鍵字 excel VBA 大大流水號

simonni

simonni
個人積分：2042分
文章編號：78788222

2042分

2樓

2020-08-22 11:40

你的 Excel 是哪個版本阿？我的是 2019
流水號不用 VBA 可用公式 =ROW()-第N行開始，然後複製
或
上下2格打上你要開始的數字，將這2格選起來，邊框右下角有個很小的方塊，用滑鼠指向它，按下滑鼠右鍵不放往下拉，流水號要多少就拉多少格

wsx1130

wsx1130
個人積分：6分
文章編號：78789603

6分

樓主

2020-08-22 14:34

報歉，因需求關係，需要用vba給他指令

misser

misser
個人積分：395分
文章編號：78855456

395分

4樓

2020-08-28 0:44

不知你畫面的２個文字框，名稱是？
(我猜是textbox1、textbox2....如果不是，底下程式碼請自行修正)

Sub write_no() '填入流水號

  r_f = 6 '從第6列開始填入號碼
  Do
    If Val(Sheets(ActiveSheet.Name).TextBox1.Text) + r_f - 6 > Val(Sheets(ActiveSheet.Name).TextBox2.Text) Then Exit Do '超過截止號碼
    Cells(r_f, 3) = Val(Sheets(ActiveSheet.Name).TextBox1.Text) + r_f - 6
    r_f = r_f + 1
  Loop
  Cells(6, 3).Select
  MsgBox "填入流水號完成！"

End Sub

給您參考

Der，misser1

misser

misser
個人積分：395分
文章編號：78856150

395分

5樓

2020-08-28 5:50

這一句：

If Val(Sheets(ActiveSheet.Name).TextBox1.Text) + r_f - 6 > Val(Sheets(ActiveSheet.Name).TextBox2.Text) Then Exit Do '超過截止號碼

其實是同一行喔，請注意。

Der，misser1