Results 1 to 7 of 7

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167

    òúï âúïðîñ çà VBA

    Çäðàâåéòå, âúïðîñúò ìè å ñëåäíèÿ:
    èìàì 3 ïðîöåäóðè ( âñÿêà åäíà îò òÿõ îòãîâàðÿ íà êîìàíäåí áóòîí â excel)ïðîìåíëèâèòå ñúì ãè äåêëàðèðàë íàä 3 òå ïðîöåäóðè.
    Â ïúðâàòà ïðîìåíÿì ñòîèíîñòèòå èì è èñêàì â òðåòàòà ïðîöåäóðà äà áúäàò ñúñ ñòîèíîñòèòå îò ïúðâàòà.
    Áëàãîäàðÿ ïðåäâàðèòåëíî.

  2. #2
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Êàêâî òî÷íî íå ñå ïîëó÷àâà?
    Åòî ìàëêî èíôîðìàöèÿ çà ðàçìèñúë:
    http://www.ozgrid.com/VBA/variable-scope-lifetime.htm
    Ñïîðåä ìåí íå áè òðÿáâàëî äà èìàø îñîáåíè ïðîáëåìè, ñòèãà òðåòàòà ïðîöåäóðà äà ñå èçïúëíÿâà ñëåä ïîíå åäíî èçïúëíåíèå íà ïúðâàòà.

  3. #3
    Registered 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

  4. #4
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    À òîâà fname îòêúäå âçèìà ñòîéíîñò?

  5. #5
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167
    Ñ äèàëîãîâà êóòèÿ
    fname = Inputbox("wawedete ime na fail", "FileName", "c:\data.txt")

  6. #6
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    À êàêâè ñà ñòîéíîñòèòå íà M è N â ïúðâàòà ôóíêöèÿ?

  7. #7
    Registered User
    Join Date: Aug:2008
    Location: sofia
    Posts: 167
    Â ïúðâàòà è âòîðàòà ñúîòâåòíî 7 è 5

    ---------- Äîáàâåí ïîñëåäâàù êîìåíòàð â 14:45 ---------- Îðèãèíàëíèÿò êîìåíòàð å ïóñíàò â 14:36 ----------

    Áëàãîäàðÿ âè çà ïîìîùà , ïðîáëåìà ñå îêàçà â çàäêëàâèàòóðíîòî óñòðîèñòâî.
    Â òðåòàòà ôóíêöèÿ âìåñòî êúì èíäåêñúò íà ìàêñèìàëíèÿò åëåìåíò ñå îáðúùàì êúì íåãîâàòà ñòîéíîñò.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè