エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14716 for VBA�� (0.003 sec.)

[[20120411104627]]: #score: 3409; @digest: 3f8bb9f6876b28386460cd2fd3cc438d; @id: 58503; @mdate: 2012-04-11T02:39:38Z; @size: 3369; @type: text/plain; #keywords: mybutton (38932), ロ'[ (15497), 式() (12304), mybar (10668), r1c1 (7612), 20110405160117 (7380), ンr1 (7323), 述op (7005), referencestyle (5920), 動" (5526), onaction (5016), vbcomponents (4758), msocontrolbutton (4587), vbproject (4363), msobartop (4008), 動se (3910), 照形 (3121), commandbars (3052), commandbarbutton (2827), module1 (2550), faceid (2545), 動() (2422), ー") (2265), commandbar (2184), ルバ (2060), 起動 (1523), caption (1520), position (1462), ツー (1454), controls (1276), beforeclose (1094), 相違 (1061); 『ツールバーに追加したいボタン R1C1参照形式』（あや）
XP 2003 [[20110405160117]]に質問させて頂いて、無事活用させてもらっている者です。今回、新たにツールバーに追加しようとしているボタンがあります。ツール-オプション-全般の R1C1参照形式を使用するのチェックを付けたり外したりを、ツールバーのボタンで再現したいと思っています。マクロの記録を取って以下のように追加してみました。（もともと使っているVBA起動のボタンも記述にあります） Book1.xlaファイル ////////////////////////////////////////////////////////////////// 'Thisworkbookの記述 Private Sub Workbook_Open() On Error Resume Next Application.CommandBars("VBAツールバー").Delete Dim myBar As CommandBar, myButton As CommandBarButton Set myBar = Application.CommandBars.Add(Position:=msoBarTop) 'VBAを起動 Set myButton = myBar.Controls.Add(Type:=msoControlButton) myBar.Name = "VBAツールバー" myButton.OnAction = "VBA起動" myButton.Caption = "VBA起動" myButton.FaceId = 101 myBar.Visible = True 'R1C1 Set myButton = myBar.Controls.Add(Type:=msoControlButton) myButton.OnAction = "R1C1" myButton.Caption = "R1C1" myButton.FaceId = 97 On Error GoTo 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("VBAツールバー").Delete On Error GoTo 0 End Sub ////////////////////////////////////////////////////////////////// 'Module1の記述 Option Explicit Dim R1C1 As String Sub VBA起動() Application.SendKeys "%({F11})" End Sub Sub R1C1形式() ' On Error Resume Next If R1C1 = "" Then Application.ReferenceStyle = xlR1C1 R1C1 = "True" Else Application.ReferenceStyle = xlA1 R1C1 = "" End If End Sub ////////////////////////////////////////////////////////////////// これでボタンを押してみると、『マクロ'[Book1.xla]Sheet1!$A$1'が見つかりません。』となります。このエラーをネットで検索してみましたが、必要な情報が見当たらなかったので質問させて頂きました。なにかヒントになることでも結構です。よろしくおねがいします。m(_ _)m ---- >『マクロ'[Book1.xla]Sheet1!$A$1'が見つかりません。』これが良く解らないけど?? R1C1が見つからないじゃない?? > myButton.OnAction = "R1C1" > myButton.Caption = "R1C1" 名前がダメ。そもそも Sub R1C1形式() とも違っているけど、R1C1はだめ。しぶとく使いたかったら、 aaR1C1 とかに変えること。変数名のR1C1の類、C1、C2、R1、R2も使わない方が無難。特にC系。おまけ、 VBE起動。 Application.VBE.MainWindow.Visible = True 'ThisWorkbook.VBProject.VBComponents("Module1").Activate 'Activeworkbook.VBProject.VBComponents("Module1").Activate BJ ---- BJさんありがとうございます。解決しました。 R1C1は変数にしないほうがいい文字なんですね。変数にしないほうがいい文字があることは知っていたのですが気がつきませんでした >д< 気をつけます。勉強になります。それと、変数を修正して気がついたのですが呼び出す側の myButton.OnAction = "R1C1" と呼び出される側の Sub R1C1形式() が相違していました。ツールバーに追加するのに慣れていないのもあって、初歩的なミスですいませんでした…。（あや） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201204/20120411104627.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ