Ctrl + v
Дата: Пятница, 10.05.2013, 23:45 | Сообщение # 826
Сообщений: 720
Статус: Offline
Дата: Суббота, 11.05.2013, 00:20 | Сообщение # 827
Сообщений: 1187
Статус: Offline
• Админ (Попытаю счастье хд) • Делать авы (Или опять же пытаться) • Всё свободное время о.о
Дата: Суббота, 11.05.2013, 10:20 | Сообщение # 828
Сообщений: 1
Статус: Offline
http://cs418420.vk.me/v418420441/26e4/p8Hii37kGRs.jpg
Дата: Суббота, 11.05.2013, 11:53 | Сообщение # 829
Сообщений: 7769
Статус: Offline
vtkx5e36dc
Дата: Суббота, 11.05.2013, 13:41 | Сообщение # 830
Сообщений: 1187
Статус: Offline
На земле живется нелегко,и поэтому я очень полюбила бездонное небо.
Дата: Воскресенье, 12.05.2013, 20:14 | Сообщение # 831
Сообщений: 24
Статус: Offline
google.com ой))не то что бы я не знала этот сайт...просто случайно скопировала
Дата: Воскресенье, 12.05.2013, 20:50 | Сообщение # 832
Сообщений: 32415
Статус: Offline
Дата: Понедельник, 13.05.2013, 00:46 | Сообщение # 833
Сообщений: 1187
Статус: Offline
Дата: Понедельник, 13.05.2013, 01:50 | Сообщение # 834
Сообщений: 32415
Статус: Offline
я не женского пола, вообщето)
Дата: Понедельник, 13.05.2013, 02:30 | Сообщение # 835
Сообщений: 1187
Статус: Offline
http://www.sendspace.com/file/nwdq9d
Дата: Понедельник, 13.05.2013, 21:04 | Сообщение # 836
Сообщений: 10
Статус: Offline
аккордеон
Дата: Понедельник, 13.05.2013, 21:20 | Сообщение # 837
Сообщений: 1187
Статус: Offline
http://anidream.net/forum/24-3966-1
Дата: Вторник, 14.05.2013, 01:13 | Сообщение # 838
Сообщений: 45
Статус: Offline
елизиум
Дата: Четверг, 16.05.2013, 03:09 | Сообщение # 839
Сообщений: 297
Статус: Offline
Private Sub TextBox1_Change() i = 2 Do i = i + 1 If Worksheets(1).Cells(i, 1) = TextBox1.text Then TextBox2.text = Worksheets(1).Cells(i, 2) TextBox3.text = Worksheets(1).Cells(i, 3) Exit Do End If Loop Until Worksheets(1).Cells(i, 1) = Empty intPos = TextBox1.SelStart strTmp = "" bBeep = False For i = 1 To Len(TextBox1.text) ch = Mid(TextBox1.text, i, 1) If (ch >= "0" And ch <= "9") Or ch = "." Or ch = "," Then strTmp = strTmp & ch Else intPos = intPos - 1 bBeep = True End If Next TextBox1.text = strTmp If intPos > 0 Then TextBox1.SelStart = intPos End If If bBeep Then Beep End Sub Оу щет)) Это ж VBA
Дата: Пятница, 17.05.2013, 00:32 | Сообщение # 840
Сообщений: 1187
Статус: Offline
(Надеюсь,что не маленькая с: )