NumPad deki virgülün yerine nokta olsa

[Serpily]

Sayıların arasına nokta koymak için Num Paddeki virgülün yerine nokta bastırmak istiyorum. Sanıyorum bu bir klavye programıyla olacak. Ã?zellikle f klavye kullananların F'e çeviren programları bu ayrıntıyı da içerse Türkçe ayarlar için güzel bir özellik olacaktır. Böyle bir prgsi olan varsa ilgisine teşkür ederim şimdiden.

 

[Haluk]

Mrb;

Çalışma sayfasında hücrelerde değil de, sayfa üzerinde veya UserForm üzerindeki bir TextBox için aşağıdaki gibi bir şey kullanılabilir:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
    If KeyCode = vbKeyDecimal Then SendKeys "{BACKSPACE}."
End Sub

 

[ALPEN]

veya

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, ",", ".")
End Sub

 

[Haluk]

Tabii, ALPEN' in önerisiyle benimki arasında biraz fark var.



Benimkinde TextBox'ın içine 123,123.123 yazılabilir.

(Virgül klavyedeki alfanümerik tuş takımından giriliyor ve nokta da numerik tuş takımındaki virgüle basılınca kodla nokta haline çevriliyor)

ALPEN'in önerisinde ise sonuç 123.123.123 olarak belirir.

 

[Serpily]

Ã?nerileriniz gerçekten güzel ama dikkat ederseniz ben bunu Excel başlığı altında sormadım. Diğer başlığı altında sordum. Çünkü virgül-nokta değişiminin her zaman geçerli olmasını istiyorum. Wordde de xlde de veya diğer her yerde. Gençliğimizde hani DOS diye bir şey vardı ya o zamanlarda klavye düzenleriyle oynayan programlar vardı. Türkçe karakterleri ve , . - ? filan tuşlarını ayarlamamıza yarardı. Galiba bu iş onlarla yapılacak, ne dersiniz?

 

[Haluk]

O zaman, PC'deki bölgesel ayarlarda ondalık karakterini değiştirmeyi deneyin bence.

 

[ALPEN]

az önce denedim. tıss. (en azından xp'de)

 

[Haluk]

Win2000 / Office 2000 de gayet başarılı.

Control Panel >> Regional Options >> Numbers

Decimal point ---> .

Digit grouping symbol ---> ,

Yani;

Type ControlPanelItem
NewHardware As String
AddRemove As String
DateTime As String
Display As String
Internet As String
Game As String
Keyboard As String
Modem As String
Mouse As String
Multimedia As String
Network As String
Password As String
International As String
Sound As String
System As String
End Type
'
Const SW_SHOW = 5
'
Sub LaunchControlPanel()
Dim CtrlPanApp As ControlPanelItem
CtrlPanApp.NewHardware = "sysdm.cpl @1"
CtrlPanApp.AddRemove = "appwiz.cpl,,1"
CtrlPanApp.DateTime = "timedate.cpl"
CtrlPanApp.Display = "desk.cpl,,0"
CtrlPanApp.Internet = "inetcpl.cpl,,0"
CtrlPanApp.Game = "joy.cpl"
CtrlPanApp.Keyboard = "main.cpl @1"
CtrlPanApp.Modem = "modem.cpl"
CtrlPanApp.Mouse = "main.cpl @0"
CtrlPanApp.Multimedia = "mmsys.cpl,,0"
CtrlPanApp.Network = "netcpl.cpl"
CtrlPanApp.Password = "password.cpl"
CtrlPanApp.International = "intl.cpl,,1"
CtrlPanApp.Sound = "mmsys.cpl @1"
CtrlPanApp.System = "sysdm.cpl,,0"
'
Shell "rundll32.exe shell32.dll,Control_RunDLL " & CtrlPanApp.International, SW_SHOW
End Sub