返回列表 上一主題 發帖

[發問] 流水號

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-2-16 17:13 | 只看該作者

[發問] 流水號

Dear,
我想以B欄的資料列數為準,在A欄自動產生流水號(從A2開始以1.2.3填入)
可是出現都是B欄的總列數,請問是哪個步驟...有問題??
        With Workbooks("理貨單.xlsx").Sheets("訂單")
            Workbooks("理貨單.xlsx").Sheets("訂單").Activate
            xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
        J = 1
    For J = 1 To xRow
        Range("A2:A" & xRow).Value = J
        J = J + 1
    Next
        End With
End Sub
收藏 分享

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2020-2-17 10:28 | 只看該作者
回復 1# PJChen
試試看
With Workbooks("理貨單.xlsx").Sheets("訂單")
   Workbooks("理貨單.xlsx").Sheets("訂單").Activate
   xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
   i = 1
   For j = 2 To xRow
      Range("A" & j).Value = i
      i = i + 1
   Next
End With

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2020-2-17 23:55 | 只看該作者
回復 2# jcchiang

可以正常跑出流水號了....感謝

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題