Results 1 to 5 of 5
Thread: VB: Excel
Hybrid View
-
5th March 2010 10:40 #1
VB: Excel
, Excel , Visual Basic. :
For i = 0 To c - 1
oSheet.Range("da" & i + 2).Value = temp(i)
next
, ( 10 . ). :
oSheet.Range("db2").Resize(c).Value = temp
,
, .
Last edited by vekatatd; 5th March 2010 at 10:53.
-
5th March 2010 12:24 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,852
-
5th March 2010 14:06 #3
-
5th March 2010 14:47 #4Registered User
Join Date: Oct:2003
Location:
Posts: 4,852
.
Code:Dim range_SWP As Range range_SWP = oSheet.Range(oSheet.Range("ca2"), oSheet.Range("ca" & (c + 1))) range_SWP.Value = Application.WorksheetFunction.Transpose(SWP)Core i7 6950X watercooled|RVE|4x RX VEGA|4x4GB GEIL DRAGON DDR4-3333CL16|Corsair AX1600i|SSD 850 EVO 250GB|WD1001FALS|HP LP2475w|Creative X-Fi Titanium Pro|Luxeon 5.1WH|Logitech G500|Lian Li A70B
-
6th March 2010 01:50 #5
!
- . , ,
, , MSDN , ( ).
, :
Dim jjj As Integer
Dim sss(c, 7) As Single
For jjj = 0 To c - 1
sss(jjj, 0) = SWP(jjj)
sss(jjj, 1) = ET(jjj)
sss(jjj, 2) = rain(jjj)
Next
oSheet.Range("da2").Resize(c, 7).Value = sss
, , - , - , .
OLDcomer , .
ps
, a 2 -
.




Reply With Quote

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