[[20121219164547]] 『セルに苗字を入力したらその文字を印鑑に』(aco) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルに苗字を入力したらその文字を印鑑に』(aco)
いつもお世話になります。

A1に吉田と入力したら、
D1にシャチハタの形の印鑑で吉田と出るようにしたいのですが、
そのようなマクロ、もしくはフリーソフトはありますでしょうか?

エクセル2000・ウィンドウズXPです。

宜しくお願い致します。


 私の回答したところでは下記のようなものでしょうか。
まくろじゃないけど。
[[20050331113740]] 『社員証』(NOB)
 
(みやほりん)

 オブジェクトでも何とかなりそうですが、EXCEL Stamp で検索するといろいろと
 おもしろいもの(アドイン機能など)が見つかりそうです。
 (Mook)

みやほりん様、Mook様、ありがとうございます。

Kスタンプというフリーソフトをインストールしてみました。
でも、Kスタンプのソフトに名前を1こ1こ入力しないと印鑑が出来ませんでした。

エクセルのセルに苗字を入力したら、そのまま印鑑ができあがる。
そんな便利なことってできないでしょうか。
何かしらの手を加えても、あくまでエクセルのセルに入力するだけでできるという形がベストなのですが。。。


 ものが【印鑑】なら、やはり、そこは【本職】のソフトで作成した印鑑のほうが見栄えがいいと思うよ。
 でも、エクセルだけで勝負したいということなら。

 準備

 D1 に 自分で、円を配置。この円の図形の名前を "MyStamp" とでもしておいて。
 D1内の位置や大きさ、線の太さを太くしたり細くしたり、線の色も赤や黒や、そこは好みで。
 その円の中に、例えば "田中"といれて、この文字の円の中の位置や太さや色やフォントも好みのものに。

 こうした上で、シートモジュールに以下。最初に A1を選択してクリアすると印鑑が消える。
 以降は、A1に名前を入れるとその名前の印鑑になるし、A1をクリアすれば消える。

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String
    Dim sp As Shape

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    s = Range("A1").Value
    Set sp = Me.Shapes("MyStamp")
    If Len(s) = 0 Then
        sp.Visible = False
    Else
        sp.DrawingObject.Caption = s
        sp.Visible = True
    End If
 End Sub

 (ぶらっと)

印鑑の定義って。。。
(^^;

○に文字(名前)だけでも良いということですかね。。。
文字のフォントも気に入ったのに指定しとけば、自由な文字はこれでいけそうですね。

(oram)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.