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

帖子: 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)

樓主熱帖

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

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

  少看=只看不做也枉然

mark15jill

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

高中生 Rank: 3 Rank: 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-4-19 11:01 | 只看該作者

回復 3# mark15jill

Sub ex()
Do Until r > [A1].End(xlDown).Row '資料範圍迴圈
Do Until i = 10 Or r > [A1].End(xlDown).Row '執行10次或超過資料範圍跳離迴圈
i = i + 1 '計算迴圈數
r = r + 1 '往下一列
mystr = IIf(mystr = "", Cells(r, 1), mystr & "HHH:HHH" & Cells(r, 1)) '記錄A欄
Loop
Cells(Int((r + 1) / 10), "P") = mystr 'P欄寫入值
mystr = "" '字串清空
i = 0 '迴圈起始值歸零
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

mark15jill

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

高中生 Rank: 3 Rank: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

Sub owg()
Dim CtrTemp, AtrTemp As String
kk = 1
For wgo = 1 To 1102
mm = wgo / 10 '商
gg = wgo Mod 10 '餘數
Cells(wgo, "M") = mm
Cells(wgo, "N") = gg
yy = InStr(Cells(wgo, "M"), ".")
If InStr(Cells(wgo, "M"), ".") >= 1 Then Cells(wgo, "M") = Mid(Cells(wgo, "M"), 1, yy - 1)
AtrTemp = IIf(AtrTemp = "", "", AtrTemp & "&:&") & Cells(wgo, "A")
Cells(1, "P") = AtrTemp
kk = kk + 1 '這kk是何用途??
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP