Home Explore Help
Sign In
hongwenjun
/
corelvba
mirror of https://github.com/hongwenjun/corelvba
1
1
Fork 0
Files Issues 0 Wiki
Browse Source

换了工作，7-8个月来终于稳定了，感谢捐赠网友的支持

蘭雅sRGB 1 week ago
parent
0e94cd3f81
commit
71d8e799f7
2 changed files with 8 additions and 3 deletions
Unified View Show Diff Stats
  1. 7 2
      donate.md
  2. 1 1
      module/StoreSelect.bas

+ 7 - 2
donate.md
View File 

@@ -1,5 +1,9 @@
 
-![image](https://github.com/user-attachments/assets/eab2ed74-1d68-4328-b153-41808f825792)# 捐赠网友将送商业版注册激活码一份
 
+![image](https://github.com/user-attachments/assets/eab2ed74-1d68-4328-b153-41808f825792)
 
+
 
+# 捐赠网友将送商业版注册激活码一份
 
+
 
 ![](https://lyvba.com/wp-content/uploads/2023/12/vlog_lanya.jpg)
 
 ![](https://lyvba.com/wp-content/uploads/2023/12/vlog_lanya.jpg)
 
+
 
 ### 2022.12.13 庆祝蘭雅CorelVBA工具捐赠和收益总额达到3000元
 
 ### 2022.12.13 庆祝蘭雅CorelVBA工具捐赠和收益总额达到3000元
 
 ### 2023.12.29 庆祝蘭雅CorelVBA工具捐赠和收益总额达到5000元
 
 ### 2023.12.29 庆祝蘭雅CorelVBA工具捐赠和收益总额达到5000元
 
 ### 2024.06.15 蘭雅 CorelDRAW CPG 开源项目发布
 
 ### 2024.06.15 蘭雅 CorelDRAW CPG 开源项目发布
 
@@ -7,6 +11,7 @@
 
 ### AI画质增强GUI启动器项目开启，小白也能方便使用工具
 
 ### AI画质增强GUI启动器项目开启，小白也能方便使用工具
 
 ### 2024.10.24 文稿一键美白App By 蘭雅  捞鱼吧 bbs.lyvba.com 免费下载
 
 ### 2024.10.24 文稿一键美白App By 蘭雅  捞鱼吧 bbs.lyvba.com 免费下载
 
 ### 2024.2.21 意外发现海外朋友 tubbiya 的捐赠 30刀，过完春节换了一个工作，白天没有写代码时间了
 
 ### 2024.2.21 意外发现海外朋友 tubbiya 的捐赠 30刀，过完春节换了一个工作，白天没有写代码时间了
 
+
 
 ## 捐赠
 
 ## 捐赠
 
 感谢您使用 "蘭雅CorelVBA工具" 和 蘭雅 CorelDRAW CPG 工具
 
 感谢您使用 "蘭雅CorelVBA工具" 和 蘭雅 CorelDRAW CPG 工具
 
 
 
@@ -31,7 +36,7 @@
 
 Thanh Van    友佳友汇    创忆电脑    李凯    晋畅迷你字    cdr插件鼠标哥    w啊啊    上善若水    
 Thanh Van    友佳友汇    创忆电脑    李凯    晋畅迷你字    cdr插件鼠标哥    w啊啊    上善若水    
 肇庆博洋文化传媒   hi   夏夜里的荷花与星星  无风   风雅广告  告别原来的自己  vunuiop  天坐UV雕刻
 
 肇庆博洋文化传媒   hi   夏夜里的荷花与星星  无风   风雅广告  告别原来的自己  vunuiop  天坐UV雕刻
 
 重庆金广禾广告  起个破名也忒费劲了  喜鹊zai树梢  立刻行动的汤姆猫  若梦华兴  三人行  贝诺广告传媒
 
 重庆金广禾广告  起个破名也忒费劲了  喜鹊zai树梢  立刻行动的汤姆猫  若梦华兴  三人行  贝诺广告传媒
 
-tubbiya  Popper  A-Ming
 
+tubbiya  Popper  A-Ming  干饭广告王  愛與痛彼此糾結
 
 ```
 
 ```
 
 ### 会员群福利: 
 ### 会员群福利: 
 ```
 
 ```

+ 1 - 1
module/StoreSelect.bas
View File 

@@ -5,7 +5,7 @@ Public StoreCount As String
 
 Public Function Store_Instruction(id As Integer, INST As String) As String
 
 Public Function Store_Instruction(id As Integer, INST As String) As String
 
   On Error GoTo ErrorHandler
 
   On Error GoTo ErrorHandler
 
   API.BeginOpt "Undo MRC"
 
   API.BeginOpt "Undo MRC"
 
-  '// Ñ¡ÔñÖ¸ÁîÖ´ÐÐ
 
+  '// 选择指令执行
 
   Case_Select_Range id, INST
 
   Case_Select_Range id, INST
 
   
   
   StoreCount = "Store Count: A->" & sr_mem(1).Count & "  B->" & sr_mem(2).Count & "  C->" & sr_mem(3).Count
 
   StoreCount = "Store Count: A->" & sr_mem(1).Count & "  B->" & sr_mem(2).Count & "  C->" & sr_mem(3).Count