Board logo

標題: [發問] [發問] 關於 資料間接性對應 [打印本頁]
作者: mark15jill    時間: 2013-4-18 16:58     標題: [發問] 關於 資料間接性對應

因要用快速取代的功能< ks(XXXX) 取代成 kt(XXXX) >而需要大量宣告<因為取代和被取代的文字無法預先設定，只能慢慢判斷>
才想說用間接性的方式，批次宣告
問題如下
附圖中，A、C 欄位為資料源，M、N欄為商數和餘數<資料筆數 1102筆>，P1為 A1連結到 A1102< A1 &":"&A2..........&":"&A1102>
想請問
1.如何利用商數 讓 P1 為A1 &":"&A2.....&":"&A10、 P2 為A11 &":"&A12.....&":"&A20.... 以此類推到P111< (1102/10)+1>
2.vba 若指定儲存格為 " ' " 是可以指定，但若是 " " " 則會出現錯誤，請問有沒有其他辦法？<目前是用HHH代替>

如附圖
[attach]14700[/attach]

[attach]14701[/attach]
作者: GBKEE    時間: 2013-4-18 17:57

回復 1# mark15jill
  1. Sub owg()
  2.     Dim CtrTemp, AtrTemp As String
  3.     kk = 1
  4.     For wgo = 1 To 1102
  5.         mm = wgo / 10  '商
  6.         gg = wgo Mod 10  '餘數
  7.         Cells(wgo, "M") = mm
  8.         Cells(wgo, "N") = gg
  9.         yy = InStr(Cells(wgo, "M"), ".")
  10.         If InStr(Cells(wgo, "M"), ".") >= 1 Then Cells(wgo, "M") = Mid(Cells(wgo, "M"), 1, yy - 1)
  11.         AtrTemp = IIf(AtrTemp = "", "", AtrTemp & "&:&") & Cells(wgo, "A")
  12.         Cells(1, "P") = AtrTemp
  13.         kk = kk + 1  '這kk是何用途??
  14.     Next
  15. End Sub
複製代碼
作者: mark15jill    時間: 2013-4-19 08:09

本帖最後由 mark15jill 於 2013-4-19 08:13 編輯
回復  mark15jill
GBKEE 發表於 2013-4-18 17:57



GBKEE大大
謝謝您的指導
原先kk 是要讓 產生出來的值在P欄 依序下來 P1 P2~~
另外
想將產生出來的值 依照商數 做連接 需要修改哪邊？  目前只會產生在P1 的儲存格
例如
P1 = A1 & A2~~~ &A10
P2 = A11 & A12~~~ &A20
P3=A21 & A22 ~~~ & A30
作者: Hsieh    時間: 2013-4-19 11:01

回復 3# mark15jill
  1. Sub ex()
  2. Do Until r > [A1].End(xlDown).Row  '資料範圍迴圈
  3.    Do Until i = 10 Or r > [A1].End(xlDown).Row  '執行10次或超過資料範圍跳離迴圈
  4.       i = i + 1 '計算迴圈數
  5.       r = r + 1 '往下一列
  6.       mystr = IIf(mystr = "", Cells(r, 1), mystr & "HHH:HHH" & Cells(r, 1)) '記錄A欄
  7.    Loop
  8.    Cells(Int((r + 1) / 10), "P") = mystr 'P欄寫入值
  9.    mystr = "" '字串清空
  10.    i = 0 '迴圈起始值歸零
  11. Loop
  12. End Sub
複製代碼
作者: mark15jill    時間: 2013-4-19 13:30

回復  mark15jill
Hsieh 發表於 2013-4-19 11:01





    Hsieh 謝謝您。小弟來用看看。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)