manisali50
Banned
- Katılım
- 29 Ekim 2010
- Mesajlar
- 471
- Excel Vers. ve Dili
- Excel2003
Sub Aut
pen()
Call SpecialCellMenu
End Sub
Sub SpecialCellMenu()
Dim cb As CommandBar
Set cb = Application.CommandBars("Cell")
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Harf Donustur..®"
MenuObject.BeginGroup = True
MenuObject.Tag = "MyTagR"
For MenuItem = 1 To 5
Set PopItem = MenuObject.Controls.Add(msoControlButton, 1, MenuItem, , True)
PopItem.FaceId = 7
With PopItem
Select Case MenuItem
Case 1
.Caption = "ABC DEF"
Case 2
.Caption = "Abc Def"
Case 3
.Caption = "abc def"
Case 4
.Caption = "Abc def"
End Select
.OnAction = "CaseChange"
End With
Next
Set cb = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing
End Sub
Sub Auto_Close()
Application.CommandBars("Cell").Reset
End Sub
Sub CaseChange()
Dim lngType As Long, MyRng As Range
Set MyWd = CreateObject("Word.Application")
Set MyDoc = MyWd.Documents.Add
Select Case CommandBars.ActionControl.Parameter
Case 1
lngType = 1
Case 2
lngType = 2
Case 3
lngType = 0
Case 4
lngType = 4
End Select
For Each MyRng In Selection
If (Not MyRng = Empty) And (Not IsNumeric(MyRng)) Then
MyWd.Selection.Text = MyRng.Text
MyWd.Selection.Range.Case = lngType
MyRng = MyWd.Selection.Text
End If
Next
MyDoc.Close False
MyWd.Quit
Set MyDoc = Nothing
Set MyWd = Nothing
End Sub
Forumdan aldığım bu kodları modüle yapıştırıp çalıştırıyorum. Bir form doldurulurken hücreyi “Abc Def” şeklinde biçimlendiriyorum. Formu doldurup çıktıyı aldıktan sonra sayfayı kapatıyorum. Aynı sayfayı tekrar açtığımda aynı hücreyi tekrardan “Abc Def” şeklinde biçimlendirmem gerekiyor. Bunu “HÜCRE BİÇİMLENDİRME” gibi sabit kılamaz mıyız.. ?
Ayrıca; diyelim ki şöyle bir cümle yazdık : “başlat TUŞU kırılmış. Yenisi TAKILDIKTAN sonra çalıştı. problem kalmadı.” Sağ tık yapıp “harf dönüştür”den “Abc def” olarak biçimlendirdiğimde BÜYÜK yazılan harfler yine aynı kalıyor..
Son olarak;bu menüye Abc DEF eklenemez mi?
Şimdiden teşekkürler.
pen()Call SpecialCellMenu
End Sub
Sub SpecialCellMenu()
Dim cb As CommandBar
Set cb = Application.CommandBars("Cell")
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Harf Donustur..®"
MenuObject.BeginGroup = True
MenuObject.Tag = "MyTagR"
For MenuItem = 1 To 5
Set PopItem = MenuObject.Controls.Add(msoControlButton, 1, MenuItem, , True)
PopItem.FaceId = 7
With PopItem
Select Case MenuItem
Case 1
.Caption = "ABC DEF"
Case 2
.Caption = "Abc Def"
Case 3
.Caption = "abc def"
Case 4
.Caption = "Abc def"
End Select
.OnAction = "CaseChange"
End With
Next
Set cb = Nothing
Set PopItem = Nothing
Set MenuObject = Nothing
End Sub
Sub Auto_Close()
Application.CommandBars("Cell").Reset
End Sub
Sub CaseChange()
Dim lngType As Long, MyRng As Range
Set MyWd = CreateObject("Word.Application")
Set MyDoc = MyWd.Documents.Add
Select Case CommandBars.ActionControl.Parameter
Case 1
lngType = 1
Case 2
lngType = 2
Case 3
lngType = 0
Case 4
lngType = 4
End Select
For Each MyRng In Selection
If (Not MyRng = Empty) And (Not IsNumeric(MyRng)) Then
MyWd.Selection.Text = MyRng.Text
MyWd.Selection.Range.Case = lngType
MyRng = MyWd.Selection.Text
End If
Next
MyDoc.Close False
MyWd.Quit
Set MyDoc = Nothing
Set MyWd = Nothing
End Sub
Forumdan aldığım bu kodları modüle yapıştırıp çalıştırıyorum. Bir form doldurulurken hücreyi “Abc Def” şeklinde biçimlendiriyorum. Formu doldurup çıktıyı aldıktan sonra sayfayı kapatıyorum. Aynı sayfayı tekrar açtığımda aynı hücreyi tekrardan “Abc Def” şeklinde biçimlendirmem gerekiyor. Bunu “HÜCRE BİÇİMLENDİRME” gibi sabit kılamaz mıyız.. ?
Ayrıca; diyelim ki şöyle bir cümle yazdık : “başlat TUŞU kırılmış. Yenisi TAKILDIKTAN sonra çalıştı. problem kalmadı.” Sağ tık yapıp “harf dönüştür”den “Abc def” olarak biçimlendirdiğimde BÜYÜK yazılan harfler yine aynı kalıyor..
Son olarak;bu menüye Abc DEF eklenemez mi?
Şimdiden teşekkürler.
