Results 1 to 2 of 2
Thread: MS EXCEL âúïðîñ
Hybrid View
-
9th September 2005 12:20 #1
MS EXCEL âúïðîñ
Èìà ëè âúçìîæíîñò ïðè ïðîìÿíà íà ñúäúðæàíèåòî íà äàäåíà êëåòêà, â äðóãà êëåòêà äà èçïèøå äàòàòà íà êîÿòî, òîâà å ñòàíàëî?
-
12th September 2005 11:08 #2Registered User
Join Date: Sep:2005
Location: Varna
Posts: 11
Âúçìîæíî å, êàòî ñå èçïîëçâà ñêðèïò íà VB. Åòî åäèí ïðèìåð:
Îòâàðÿø ñè ôàéëà è ïîñëå èçáèðàø Tools/Macro/Visual Basic Editor.
 îòâîðèëèÿ ñå ïðîçîðåö, íàé-ãîðå âëÿâî ïîä áóòîíèòå èìà ñïèñúê ñ òàáëèöèòå â òâîÿ ôàéë. Àêî íå ñè ïðåèìåíóâàë òàáëèöè èëè íå ñè äîáàâÿë/òðèë òàáëèöè ñïèñúêà èçãëåæäà ïî ñëåäíèÿ íà÷èí:
VBAProject (èìå_íà_ôàéëà.xls)
Microsoft Excel Object
|____Sheet1 (Sheet1)
|____Sheet2 (Sheet2)
|____Sheet3 (Sheet3)
|____ThisWorkbook
Ùðàêàø äâà ïúòè âúðõó òàáëèöàòà å êîÿòî ñå íàìèðà ñëåäåíàòà êëåòêà (â ïðèìåðà ïî-ãîðå èìà òðè òàáëèöè - Sheet1, Sheet2 è Sheet3) è â áÿëîòî ïîëå âäÿñíî êîïèðàø ñëåäíîòî:
Option Explicit
Dim OldValue As String
Const TargetRow As Integer = 5
Const TargetCol As Integer = 5
Const DateRow As Integer = 1
Const DateCol As Integer = 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(TargetRow, TargetCol).Value <> OldValue Then
OldValue = Cells(TargetRow, TargetCol).Value
Cells(DateRow, DateCol).Value = Date & " " & Time
End If
End Sub
Private Sub Worksheet_Calculate()
If Cells(TargetRow, TargetCol).Value <> OldValue Then
OldValue = Cells(TargetRow, TargetCol).Value
Cells(DateRow, DateCol).Value = Date & " " & Time
End If
End Sub
 òîçè ïðèìåð êëåòêàòà êîÿòî ñå ñëåäè çà ïðîìÿíà å íà ðåä 5 è êîëîíà 5 (Å5), à êëåòêàòà â êîÿòî ñå çàïèñâà äàòàòà è ÷àñà íà ïðîìÿíàòà å íà ðåä 1 è êîëîíà 1 (À1). Çà äà ãè ïðîìåíèø òðÿáâà äà ñå ñìåíÿò ñòîéíîñòèòå íà ÷åòèðèòå êîíñòàíòè â íà÷àëîòî íà êîäà.
Çà äà ðàáîòè òîçè ñêðèïò å íåîáõîäèìî îò Tools/Macro/Security äà èçáåðåø Low èëè Medium.




Reply With Quote
Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
7th May 2023, 16:02 in Îáù ôîðóì çà PC õàðäóåð