返回列表 上一主題 發帖

[發問] [發問] 關於 資料間接性對應

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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代替>

如附圖


商數餘數對應.zip (28.28 KB)
收藏 分享

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2013-4-19 13:30 | 只看該作者
回復  mark15jill
Hsieh 發表於 2013-4-19 11:01





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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題