帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-4-26 19:33 | 只看該作者

[發問] 兩個變數無法合成一個變數，如何修改?

sub test()
Dim ddda,ou
For ou = 2 To 61
If Sheets("Sheet3").Cells(ou, "bc") > 2.8 Then
ddda & ou = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") '紅色為錯誤
end if
next
end sub

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-4-26 22:59 | 只看該作者

本帖最後由 lpk187 於 2015-4-26 23:01 編輯

回復 1# t8899

為何不 ddda = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") & ou '紅色為錯誤

等號的前面只能有一個變數，等號的後面卻可以有好幾個連結或做運算

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

3^#

發表於 2015-4-27 06:51 | 只看該作者

回復 t8899

為何不 ddda = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") & ou ...
lpk187 發表於 2015-4-26 22:59

我需要的是好幾個變數放入不同的值
例如
ddda1=abc
ddda2=fgh
ddda3=ijk
.....
....
....
....

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-4-27 07:18 | 只看該作者

回復 3# t8899

變數不能這樣累加，你的方式可以利用陣列來表示
Sub test()
Dim ddda(2 To 61)
For ou = 2 To 61
If Sheets("Sheet3").Cells(ou, "bc") > 2.8 Then
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") '紅色為錯誤
End If
Next
End Sub

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

5^#

發表於 2015-4-27 15:03 | 只看該作者

本帖最後由 t8899 於 2015-4-27 15:20 編輯

回復 t8899

變數不能這樣累加，你的方式可以利用陣列來表示
Sub test()
Dim ddda(2 To 61)
F ...
lpk187 發表於 2015-4-27 07:18

Sub test()
Dim ddda(2 To 4)
For ou = 2 To 4
If Sheets("Sheet3").Cells(ou, "b") > 2.8 Then
ddd = ddd & Sheets("Sheet3").Cells(ou, "b").Row & ","
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")
End If
Next
Range("c65536").End(xlUp).Offset(1) = ddd
Dim pp
For pp = 1 To Len(ddd)
MsgBox Mid(ddd, pp, 2)
If Mid(ddd, pp, 2) = ddda(ou) Then '陣列索引超出範圍
Range("c65536").End(xlUp).Offset(0).Characters(pp, 2).Font.ColorIndex = 7
pp = pp + 1
End If
Next
End Sub

Book2.zip (7.64 KB)
目的，把 ddd 裡面大於 2.8的字(row) 變色

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-14

6^#

發表於 2015-4-27 19:31 | 只看該作者

本帖最後由 t8899 於 2015-4-27 19:38 編輯

我試出來了, 不知有無較簡便(快速)的方法 ? 紅色部份又多跑一次??
目的，把 ddd 裡面大於 2.8的字(row) 變色
Sub test()
Dim ddda(1 To 8)
For ou = 1 To 8
If Sheets("Sheet3").Cells(ou, "b") > 2.8 Then
ddd = ddd & Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") & ","
ddda(ou) = Format(Sheets("Sheet3").Cells(ou, "b").Row, "00")
Else
ddd = ddd & Format(Sheets("Sheet3").Cells(ou, "b").Row, "00") & ","
End If
Next
Range("c65536").End(xlUp).Offset(1) = ddd
Dim pp
For pp = 1 To Len(ddd)
For ou = 1 To 8
If Mid(ddd, pp, 2) = ddda(ou) Then
  Range("c65536").End(xlUp).Offset(0).Characters(pp, 2).Font.ColorIndex = 7
  End If
  Next
pp = pp + 2
Next
End Sub

Book2.zip (8.18 KB)

TOP