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

t8899

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

回復 1# t8899

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

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

t8899

回復  t8899

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

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

lpk187

回復 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

t8899

回復  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)

下載次數: 4

2015-4-27 15:04

目的，把 ddd 裡面 大於 2.8的字(row) 變色

t8899

我試出來了, 不知有無較簡便(快速)的方法 ? 紅色部份又多跑一次??
目的，把 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)

下載次數: 4

2015-4-27 19:34