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
Êàêâî òî÷íî íå ñå ïîëó÷àâà?
Åòî ìàëêî èíôîðìàöèÿ çà ðàçìèñúë:
http://www.ozgrid.com/VBA/variable-scope-lifetime.htm
Ñïîðåä ìåí íå áè òðÿáâàëî äà èìàø îñîáåíè ïðîáëåìè, ñòèãà òðåòàòà ïðîöåäóðà äà ñå èçïúëíÿâà ñëåä ïîíå åäíî èçïúëíåíèå íà ïúðâàòà.
-
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 Ìîáèëíè êîìïþòðè