設為首頁收藏本站|繁體中文

Excel 技巧網

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

手機號碼,快捷登錄

查看: 6440|回復: 7
打印 上一主題 下一主題

[Excel VBA] 如何用VBA按條件自動生成連續的證書編號?

[復制鏈接]
跳轉到指定樓層
樓主
發表于 2010-7-12 12:53:54 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
  • 網站名稱: Excel技巧網 | Excel專家棲息谷 | 微軟中文技術社區合作伙伴
  • 署名作者: 悟空師弟
  • 版權聲明: 版權歸本站與作者共有 除本站官方外非作者本人轉載須經許可并注明出處
  • 本文來自:
  • 引用作品:
  • 適用版本: 2007 2003以前版本 
  • 語言環境: 簡體中文
  • 學習方法: 掌握Excel技巧的關鍵是動手操作 | 下載 ≠ 知識


  • 免費注冊成為本站會員,享用更多功能,結識更多Office辦公高手!

    您需要 登錄 才可以下載或查看,沒有帳號?注冊

    x
    Q:如何用VBA按條件自動生成連續的證書編號?
    A:提供兩種不同思路的代碼如下:
    方法1:
    1. Sub 編號()
    2.     k = 20061100001#
    3.     For Each cl In Range([A2], [A65536].End(3))
    4.         If cl(1, 2) = "通過" Then
    5.             cl(1, 3) = k
    6.             k = k + 1
    7.         End If
    8.     Next
    9. End Sub
    復制代碼


    方法2
    1. Sub bh()
    2. Dim x, rng As Range
    3. x = 20061100000#
    4. For Each rng In [B2:B22]
    5. If rng = "通過" Then
    6. x = x + 1
    7. rng.Offset(0, 2) = x
    8. Else
    9. rng.Offset(0, 2) = ""
    10. End If
    11. Next rng
    12. End Sub
    復制代碼

    詳見附件: 如何用VBA按條件自動生成連續的證書編號?.rar (13.57 KB, 下載次數: 83)
    分享到:  QQ好友和群QQ好友和群
    收藏收藏

    微軟MVP

    2
    發表于 2011-2-28 23:15:45 | 只看該作者
    原來還可以這樣
    3
    發表于 2011-3-13 12:50:06 | 只看該作者
    學習啦
    4
    發表于 2011-5-18 11:11:38 | 只看該作者
    走過路過千萬別錯過
    5
    發表于 2019-8-26 10:37:37 | 只看該作者
    學習了,感謝分享
    6
    發表于 2019-9-16 08:46:10 | 只看該作者
    學習了,感謝分享!
    7
    發表于 2019-10-22 14:19:54 | 只看該作者
    先跟著大佬學習
    8
    發表于 2019-10-24 11:26:19 | 只看該作者
    學習了,感謝分享!!!!!!!!!!!!!!!!!!!!!!!
    您需要登錄后才可以回帖 登錄 | 注冊

    本版積分規則

    關閉

    站長推薦上一條 /1 下一條

    Archiver|手機版|Excel技巧網 ( 閩ICP備08107682號-2

    GMT+8, 2020-1-20 09:13

    Powered by Discuz! X3.4

    © 2001-2017 Comsenz Inc.

    快速回復 返回頂部 返回列表
    国际冠军杯