2021年7月20日 星期二

VBA：排列組合遊戲

 最近在用VBA排列組合一些數字，做4組數字排列組合的生成，那為何不往5組或更多數字呢!!

因為超過4組數字的1~39高達百萬，要用不同方法堆壘資料阿......

架構：先產生1~39的數字>轉換為陣列>透過迴圈組合數字>檢查有無重複>回寫EXCEL A行

插曲：為確保格式，有透過FORMAT做數字格式指定，以利檢查。

其他閒話：本來是要寫539樂透彩組合的，哈


圖1.合計4.4萬筆資料

於

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)

vba 加浮水印 ChartObjects AddTextbox應用(STEP BY STEP 影片)

使用方法： 複製SUB 打開excel 進入開發人員設計模式中 使用專案管理員 新增模組 貼上SUB 開始測試 重點在於 做一個ACTIVEX按鈕 然後知道物件名稱後例如：圖表 1 就可以透過CALL執行SUB了 完成 VBA LINK  影片：

  • VBA：水平置中、垂直置中與其他設定
    寫給自己速查   垂直屬性：HorizontalAlignment  水平屬性：VerticalAlignment  置中：xlCenter 靠左靠右：XLLEFT、XLRIGHT Sheets("工作表1").Range("m2").Ve...
  • 景氣指標必看
      美國實質可支配所得 利率與黃金 消費者信心 利率PK DW PK  FED紐約分行 上海貨櫃指數 BDI CRB 美國m 1 m2 s&p 美國 非農 美國  非農就業職務空缺率 美國股市 行事曆 全球股市行事曆 全球股市 巴菲特指數 外銷訂單年增率  每月20號 外...
  • VBA：取得最後一列跟最右一行
    整理資料時，不免要判斷資料數量，在判斷資料時，資料有時會有不連續與連續資料，這時候判斷方式不盡相同  連續資料時： a行於65000儲存格以前的最後列，有點饒舌；應該是這樣看，從a65000往上找(xlup)，找到的第一個儲存格，也相對於是a行在65000列之前最後一列。 END...