Обсуждение участника:Jcwf
Материал из Википедии — свободной энциклопедии
[править] Typing in Russian
Hi. I'm en:User:Adam Riley on the english wikipedia. I noticed that you are looking into the possibility of finding a way to type the cyrillic alphabet on your computer. I know that I don't want to sound like an advertisement, butebay has these keyboard sticker thingies that you can buy, that are very inexpensive (3 bucks). Then, you can go into your control panel and open up "regional" options and get the availability to switch between the two languages with a hot key. I have them, and I use them all the time! So now, I can go авыфол авыфшауша авшыфщц ик at the drop of a hat (I know that is gibberish, but hey...it{s still cyrillics!). --Adam Riley 02:02, 13 октября 2006 (UTC)
Privet! Spasibo!
Добрый день!
Я перевёл экселевский скрипт для генерации годов на русский язык.
Sub wiki2()
jaar = InputBox("J", "Jaar", 1000)
eeuw = Fix(jaar / 100)
ajr = Abs(jaar)
If jaar / ajr > 0 Then
de = "[[de:" & ajr
en = "]][[en:" & ajr
fr = "]][[fr:" & ajr
pl = "]][[pl:" & ajr
slot = "]]"
Cells(1, 1) = de & en & fr & pl & slot
Else
de = "[[de:" & ajr
en = " v. Chr.]][[en:" & ajr
fr = " BC]][[fr:" & jaar
pl = "]][[pl:" & ajr
slot = " p.n.e]]"
Cells(1, 1) = de & en & fr & pl & slot
End If
Cells(2, 1) = "<table align=center><tr><td align=center>"
Cells(4, 1) = "</td></tr><tr><td align=center>"
Cells(5, 1) = "Годы:"
Cells(19, 1) = "</td></tr></table>"
Cells(22, 1) = "''''События''':"
Cells(23, 1) = "----"
Cells(24, 1) = "''''Родились''':"
Cells(25, 1) = "----"
Cells(26, 1) = "''''Умерли''':"
Cells(21, 1) = "----"
If jaar / ajr > 0 Then
For yy = -5 To 4
Cells(11 + yy, 1) = "[[" & jaar + yy & "]] — "
Next yy
Cells(11, 1) = "''''" & jaar & "''' — "
Cells(11 + 5, 1) = "[[" & jaar + 5 & "]]"
Cells(3, 1) = "[[Века]]: [[" & eeuw & " век]] — '''[[" & eeuw + 1 & " век]]''' — [[" & eeuw + 2 & " век]]"
Else
For yy = -5 To 5
Cells(11 + yy, 1) = "[[" & Abs(jaar + yy) & " v. Chr.|" & Abs(jaar + yy) & "]] — "
Next yy
Cells(11, 1) = "''''" & ajr & " v. Chr.''' — "
Cells(11 + 5, 1) = "[[" & Abs(jaar + 5) & " v. Chr.|" & Abs(jaar + 5) & "]]"
Cells(3, 1) = "[[Eeuwen]]: [[" & Abs(eeuw — 2) & "e eeuw v. Chr.]] — '''[[" & Abs(eeuw — 1) & "e eeuw v. Chr.]]''' — [[" & Abs(eeuw) & "e eeuw v. Chr.]]"
End If
End Sub
Drbug 20:49 7 Aug 2003 (UTC)
