Results 1 to 7 of 7
Thread: VBA
Hybrid View
-
8th May 2010 12:22 #1Registered User
Join Date: Aug:2008
Location: sofia
Posts: 167
VBA
, :
3 ( excel) 3 .
.
.
-
8th May 2010 12:59 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
-
8th May 2010 13:29 #3Registered User
Join Date: Aug:2008
Location: sofia
Posts: 167
.M N .
,
msgbox(" M = " & M ) = 0
Option Explicit
Dim M As Integer
Dim N As Integer
dim () as single
Private Sub CommandButton1_Click()
Dim fname As String
Open fname For Input As #1
Input #1, M: Input #1, N
ReDim A(M, N)
Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer , max as single
Max = Abs(A(1, 1))
MsgBox ("n = " & N)
For j = 2 To N
If Max < Abs(A(1, j)) Then Max = Abs(A(1, j)): Stylb = j
Next j
End Sub
Private Sub CommandButton3_Click()
MsgBox ("M = " & M)
End Sub
-
8th May 2010 13:48 #4Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
fname ?
-
8th May 2010 13:57 #5Registered User
Join Date: Aug:2008
Location: sofia
Posts: 167
fname = Inputbox("wawedete ime na fail", "FileName", "c:\data.txt")
-
8th May 2010 14:26 #6Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
M N ?
-
8th May 2010 14:45 #7Registered User
Join Date: Aug:2008
Location: sofia
Posts: 167
7 5
---------- 14:45 ---------- 14:36 ----------
, .
.




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