Excel VBA: Ctrl + Shift + 5 kısayolunu ayarlama

Sayıları biçimlendirmek için aşağıdaki gibi bir sürü kısayol yaptım. Hepsi hariç çalışmak Ctrl+Shift+5, Ctrl+Shift+6ve Ctrl+Shift+7kısayollar bulunmaktadır. Başka bir tuşa (kullanmayı deneyin çünkü eğer sorun, kısayol tuşları ile görünüyor Ctrl+Shift 1, 2, 3aynı işleve sahip) o zaman çalışır.

Application.OnKey "^+v", "pasteValues"
Application.OnKey "^+1", "'formatAs""" & "number" & """'"
Application.OnKey "^+2", "'formatAs""" & "number2" & """'"
Application.OnKey "^+3", "'formatAs""" & "date" & """'"
Application.OnKey "^+5", "'formatAs""" & "percentage" & """'"
Application.OnKey "^+6", "'formatAs""" & "percentage2" & """'"
Application.OnKey "^+7", "'formatAs""" & "general" & """'"

Ayrıca, herhangi bir eklentinin veya bir şeyin kısayollarımı geçersiz kılması durumunda klavye kısayollarını ayarlayan işlevi de yeniden düzenledim.

Herhangi bir fikir?

— pedropais
kaynak

Bunlar zaten atanmış, bakınız kb

Ctrl + Shift +% Ondalık basamaksız yüzde yüzdesi uygular.

Ctrl + Shift + ^ Scientific sayı biçimini iki ondalık basamakla uygular.

Ctrl + Shift + & Anahat kenarlığını seçili hücrelere uygular.

— Raystafarian
kaynak

Ama üzerine yazamaz mıyım? Örneğin, Ctrl+Shift+!"Sayı biçimini iki ondalık basamak, binlerce ayırıcı ve eksi işaretini (-) negatif değerler için uygular.", Ancak geçersiz kılabilirdim.

— pedropais 15

Makronuzun geçersiz kıldığından emin misiniz? Başkaları için alamadığınız bazılarında ne gibi hatalar alıyorsunuz?

— Raystafarian

Application.OnKey "^+1", "'formatAs""" & "number" & """'"> Ctrl+Shift+!basıldığında istenildiği gibi çalışır . Application.OnKey "^+5", "'formatAs""" & "percentage" & """'"> Ctrl+Shift+%basıldığında hiçbir şey yapmaz . Hatta bir kesme noktası eklendi formatAsfonksiyonu, ancak 2 durumda çağrısında değil.

— pedropais