[[20090909194159]]　『LinkedCellに数値の入ったセルを指定入力』（popo）　ページの最後に飛ぶ

『LinkedCellに数値の入ったセルを指定入力』（popo）

バーコードコントロール9.0を貼り付けて、
プロパティの中のLinkedCellに数値の入ったセルを指定入力したいと
思いマクロ記録ではプロパティの中のLinkedCellに数値の入ったセルを指定入力が出来ませんでした
プロパティの中のLinkedCellに数値の入ったセルを指定入力するマクロが有ればご教授お願いします

宜しくお願いします

 マクロの記録では、Linkedcellプロパティにセルアドレスの指定を行なうコードが生成されない
 ということですか？

 新規ブックの標準モジュールに

 '=====================================================================-
 Option Explicit
 Sub Macro1()
    Dim rng As Range
    Set rng = Range("a1:d5")

    With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _
                           Link:=False, _
                           DisplayAsIcon:=False, _
                           Left:=rng.Left, _
                           Top:=rng.Top, _
                           Width:=rng.Width, _
                           Height:=rng.Height)
       '↑バーコードコントロールの生成
       .LinkedCell = "g1"　　'バーコード値の入ったセルを指定
       .Visible = False '一度非表示にしてから、表示にする
       .Visible = True 'これをしないと、バーコードが表示されないので
    End With
    With Range("g1")
       .NumberFormatLocal = "@"
       .Value = "4910001123454" 'セルの値の設定
    End With
End Sub

 上記のMacro1を実行してみてください。
 アクティブシートのＡ１：Ｄ５の領域にバーコードコントロールを作成し、
 セルG1に入力された数値をもとにバーコードが表示されるはずです。
 Excel2002で確認
 試してみてください。

 ichinose

 ichinose　さん

ありがとうございます

質問内容がわかり辛かったと思いますが

的確な回答本当にありがとうございました

助かりました　m(__)m

コメント返信：

[ 一覧(最新更新順) ]

[[20090909194159]] 『LinkedCellに数値の入ったセルを指定入力』（popo） ページの最後に飛ぶ

[[20090909194159]]　『LinkedCellに数値の入ったセルを指定入力』（popo）　ページの最後に飛ぶ