返回列表 上一主題 發帖

[發問] i甚麼時候+數 , 又怎樣可以變回零又到相關位置再次計算?

joslau

帖子
15 
主題
5 
精華
0 
積分
20 
點名
0  
作業系統
WINDOWS 
軟體版本
7 
閱讀權限
10 
註冊時間
2013-7-22 
最後登錄
2015-7-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-2-14 11:57 | 顯示全部帖子

[發問] i甚麼時候+數 , 又怎樣可以變回零又到相關位置再次計算?

大家好

sub addcomma是合併所需要資料合併成合併資料的模樣

http://forum.twbts.com/viewthread.php?tid=10512&highlight=

多得stillfish00大大的幫助已可將所需資料合併

但我寫了一個星期仍未可寫出
選取資料後執行addcomma貼到所需位置
再刪除無用資料...

試了用Resize做選取資料
OFFSET做移動
但因有i是變數
行數也是變數而變得困難...

請問i = 變數時的使用上的秘訣?
即
i = Worksheets("sheet1").Range("a2").End(xlDown).Row
之類
A2又可以怎樣重新定義?


Book1-1.zip (11.8 KB)

謝謝
收藏 分享

joslau

帖子
15 
主題
5 
精華
0 
積分
20 
點名
0  
作業系統
WINDOWS 
軟體版本
7 
閱讀權限
10 
註冊時間
2013-7-22 
最後登錄
2015-7-21 
2#
發表於 2014-2-14 14:43 | 顯示全部帖子
本帖最後由 joslau 於 2014-2-14 14:46 編輯

回復 2# GBKEE
回復 3# stillfish00


先謝謝
兩位提點供出原始碼作參考
需要時間研究

因單號會有長短
合併時因過長有機會數據變成"12,345,678,911,234,500,000"等等
需要加 " ' "在頭

如再有問題或成果
會再回覆主題

TOP

joslau

帖子
15 
主題
5 
精華
0 
積分
20 
點名
0  
作業系統
WINDOWS 
軟體版本
7 
閱讀權限
10 
註冊時間
2013-7-22 
最後登錄
2015-7-21 
3#
發表於 2014-2-14 15:09 | 顯示全部帖子
已解決
  1. rngTarget.Cells(j, 3).Value = rngTarget.Cells(j, 3).Value & "," & ar(i, 3)
複製代碼
改成
  1. rngTarget.Cells(j, 3).Value = [color=Red]"'" &[/color] rngTarget.Cells(j, 3).Value & "," & ar(i, 3)
複製代碼
我會再研究以上原始碼的用法


謝謝!!!

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題