Results 1 to 5 of 5
Thread: VBA (Excel)
Hybrid View
-
24th November 2009 14:35 #1
VBA (Excel)
,
, "" , . "" ( ) "" Sheet. 8 10 , . 8 . ( 1 8)? + (if) , , ( 300 ...). , do - while - ...
(a[i][j])
-
24th November 2009 14:41 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
- ?
. property Cells. , Range.
, "Looping Through a Range of Cells".
-
24th November 2009 14:58 #3
, , . ( ), - , .
( MS
) ( ) ...

: . .
2: If curCell.Value2! = Null , . .. false. ?Last edited by MrShadow; 24th November 2009 at 16:13.
-
24th November 2009 16:02 #4Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
named ranges. . , , .. .
-
24th November 2009 17:27 #5
:
. ..Code:For Counter = 5 To 12 Set curCell = Worksheets("Sheet1").Cells(9, Counter) If curCell.Value = "" Then Worksheets("M1").Range("A65536").End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("B5").Value Worksheets("M1").Range("B65536").End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("E5").Value Worksheets("M1").Range("C65536").End(xlUp).Offset(1).Value = Worksheets("Sheet1").Cell(9, Counter).Value Worksheets("M1").Range("D65536").End(xlUp).Offset(1).Value = Worksheets("Sheet1").Cell(25, Counter).Value End If Next Counter
Code:If curCell.Value = "" Then
, If-a. ?Code:If curCell.Value! = "" Then
: .
if-a...
2: ! <> !=
...
---------- 17:27 ---------- 16:39 ----------
:
Drop down . ( , ).
(-
).
: :
Code:Sub Worksheet_Change(ByVal Target As Range)
Last edited by MrShadow; 24th November 2009 at 18:02.




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in