麻辣家族討論版版 » Excel程式區 » Excel VBA 請益

返回列表下一主題上一主題發帖

[發問] Excel VBA 請益

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-7-21 00:17 | 顯示全部帖子

[發問] Excel VBA 請益

本帖最後由 zz0660 於 2021-7-21 00:19 編輯

請問寫EXCEL的VBA 如何判斷 AA表單的C1儲存格內容的英文字，來決定QQ表單對應的地方複製，然後貼在AA表單 C2的位置?
請各位協助，謝謝!

QQ.JPG (95.93 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

2^#

發表於 2021-7-21 23:24 | 顯示全部帖子

回復 2# samwang

Arr = .Range("a1:n" & .[b65536].End(3).Row)

For i = 1 To UBound(Arr) Step 9
For j = 2 To UBound(Arr, 2) Step 8

這幾句是什麼意思?

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

3^#

發表於 2021-7-22 22:48 | 顯示全部帖子

本帖最後由 zz0660 於 2021-7-22 22:50 編輯

回復 5# samwang

您好，假設QQ裡面的數字都有公式組成，但顯示在AA的地方，只想要單純的數字，請問要多加什麼程式碼？

For j = 2 To UBound(Arr, 2) Step 8 這個要怎麼改成第一欄？
直接把2改成1的話程式會錯誤。

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

4^#

發表於 2021-7-23 10:05 | 顯示全部帖子

回復 7# samwang

在此提供檔案

AAQQ.rar (24.62 KB)
QQ貼上的內容如AA那樣，但只想顯示純數字，還有AA表單有T1~T3的按鈕，按T1就會顯示T1的資料，就這樣囉，感謝您。

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

5^#

發表於 2021-7-23 12:02 | 顯示全部帖子

回復 9# samwang

如圖所示

但是 smr & xxc & cc，都各自對應自己的 T1,T2,T3的數據，麻煩您了，謝謝!

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

6^#

發表於 2021-7-23 14:31 | 顯示全部帖子

本帖最後由 zz0660 於 2021-7-23 14:33 編輯

回復 12# samwang

感謝您花時間協助，目前測試結果，T1 的是可以成功的，T2&T3 無反應。
J1:Q 這個是T2的也核對過表格，確認無誤，但沒有任何反應

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

7^#

發表於 2021-7-23 16:37 | 顯示全部帖子

回復 14# samwang
檔案如附件

AAQQ.rar (33.91 KB)

我將您的程式放在巨集表裡面，在aa表單裡面有 T1 & T2 &T3 按鈕，只有T1的按鈕生效。

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

8^#

發表於 2021-7-23 20:17 | 顯示全部帖子

回復 16# samwang

好的先試試看
感謝您

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

9^#

發表於 2021-7-23 20:34 | 顯示全部帖子

回復 16# samwang

改了，但出來的數據是T2 & T3的數據，如圖片。

紅色框框就是 T1的數據。

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 72
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2022-9-6

10^#

發表於 2021-7-23 22:55 | 顯示全部帖子

回復 19# samwang

感謝您，這樣就不用修改B3的位置了。已成功，謝謝!

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題