Forum
Aktif konular
Üyeler
Kurallar
Arama
Code Highlighter Beta Deneme Code Highlighter Beta Deneme
-
<SCRIPT LANGUAGE="JavaScript"> <!-- function nameDefined(ckie,nme) { var splitValues var i for (i=0;i<ckie.length;++i) { splitValues=ckie[i].split("=") if (splitValues[0]==nme) return true } return false } function delBlanks(strng) { var result="" var i var chrn for (i=0;i<strng.length;++i) { chrn=strng.charAt(i) if (chrn!=" ") result += chrn } return result } function getCookieValue(ckie,nme) { var splitValues var i for(i=0;i<ckie.length;++i) { splitValues=ckie[i].split("=") if(splitValues[0]==nme) return splitValues[1] } return "" } function insertCounter() { readCookie() displayCounter() } function displayCounter() { document.write('<H3 ALIGN="CENTER">') document.write("You've visited this page ") if(counter==1) document.write("the first time.") else document.write(counter+" times.") document.writeln('</H3>') } function readCookie() { var cookie=document.cookie counter=0 var chkdCookie=delBlanks(cookie) //are on the client computer var nvpair=chkdCookie.split(";") if(nameDefined(nvpair,"pageCount")) counter=parseInt(getCookieValue(nvpair,"pageCount")) ++counter var futdate = new Date() var expdate = futdate.getTime() expdate += 3600000 * 24 *30 //expires in 1 hour futdate.setTime(expdate) var newCookie="pageCount="+counter newCookie += "; expires=" + futdate.toGMTString() window.document.cookie=newCookie } // --> </SCRIPT>js kodu ekleyip tekrar düzenleyince editörde kod gözükmüyor
-
bibok anlamıyom zaten yazılanlardan boşver:Dha kaymııış ha kaymamışş
-
#h1{background-color:#fff;} #h1 a{color:#ccc;} #h1 li{color:#ee;} -
Sub KATALOG() Application.ScreenUpdating = False Dim i, slu, slr, slf, k, tmp, tmb, m, l, b, u As Integer Dim t As String Dim r As Boolean Dim harf(28) As String harf(1) = "A" harf(2) = "B" harf(3) = "C" harf(4) = "D" harf(5) = "E" harf(6) = "F" harf(7) = "G" harf(8) = "H" harf(9) = "I" harf(10) = "J" harf(11) = "K" harf(12) = "L" harf(13) = "M" harf(14) = "N" harf(15) = "O" harf(16) = "P" harf(17) = "Q" harf(18) = "R" harf(19) = "S" harf(20) = "T" harf(21) = "U" harf(22) = "V" harf(23) = "W" harf(24) = "Y" harf(25) = "Z" harf(26) = "AA" harf(27) = "AB" harf(28) = "AC" Sheets("veri").Select t = Left(Cells(1, 1), 10) slu = 1 For i = 1 To 7580 Range("A" & i).Select Select Case ActiveCell.Value Case "ÜRÜN:" Range("G" & i).Select Selection.Copy Selection.Copy Destination:=Sheets("katalog").Range("D" & slu) slr = slu + 3 slf = slu + 1 Sheets("veri").Select Range("B" & i).Select Selection.Copy Selection.Copy Destination:=Sheets("katalog").Range("M" & slu) slu = slu + 19 Sheets("veri").Select Range("O" & i).Select Selection.Copy Selection.Copy Destination:=Sheets("katalog").Range("D" & slf) Sheets("veri").Select Range("A" & i).Select Case "Renk" tmp = slr + 1 tmb = slr k = i + 1 m = 2 l = i b = 2 u = 2 Do While Cells(k, 1) <> "TOPLAM" If (Range("A" & k).Value) = 0 Or (Left(Range("A" & k).Value, 10) = t) Or (Range("A" & k).Value) = "Sayfa:" Then k = k + 1 Else Sheets("katalog").Cells(tmp, 1) = Range("A" & k).Value tmp = tmp + 1 k = k + 1 End If Loop Do While Cells(l, b) <> "TOPLAM" If Range(harf(b) & l).Value = 0 Then b = b + 1 Else Sheets("katalog").Cells(tmb, u) = Range(harf(b) & l).Value b = b + 1 u = u + 1 End If Loop End Select Next i End Sub -
holy hocam tahribat için operayı bıraktıracaksın bize :|
-
Ohoo...
İyi olmuş bu ya :)
Hangi dilleri renklendiriyo şu an?
-
super olmus :)
-
NmC bunu yazdı:
-----------------------------
Ohoo...
İyi olmuş bu ya :)
Hangi dilleri renklendiriyo şu an?
-----------------------------
-
Güzel bir sistem olmuş, teşekkürler.
-
kod sanatçısı ..
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 10253 Toplam Mesaj: 55
Cevapla