アクセスカウンタ

Songs Unsung 〜 唄いびとおらず 〜

プロフィール

ブログ名
Songs Unsung 〜 唄いびとおらず 〜
ブログ紹介
中道左派的な心情を詩にしたため日本語ロックしました的な・・・
zoom RSS

エクセルVBA 〜 共有フォルダ上のファイルを正常に開きたい

2019/03/06 02:18
■どういうときに必要だったかというと

共有フォルダの中のファイルAに、共有フォルダの中の別のファイルBのデータを貼付するとき、Aの中にBをアクティブにするマクロを記述するわけですが、いざBをアクティブにする<Workbooks("ファイルB").Activate>の行で「ファイル(Bのこと)が見つかりません」というエラーが発生します。<ChDir "\\○○\△△>というふうに、ファイルBが保存されている△△という共有フォルダにディレクトリ移動の記述するだけではダメなんです。

そんなとき、以下をAのマクロの中に以下を記述すると、「\\」で始まるネットワーク上のフォルダをカレントフォルダにでき、無事ファイルBを使えるようになるわけです。これはネット検索で探し出したワザです。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

  CreateObject("WScript.Shell").CurrentDirectory = ThisWorkbook.Path
記事へブログ気持玉 / トラックバック / コメント


エクセルVBA 〜 文字列から不要な文字の削除を一括で

2019/03/05 18:17
■どういうときに必要だったかというと

インターネットバンキングの入出金明細等の画面から金額データをマウスで選択してエクセルのシートにコピペすると、金額に円の文字がついていてエクセルの計算に邪魔なことがあります。そんなとき、シートから不要な複数の円の文字を一括で削除して、文字列を数値化するにはこんなVBAが便利ですね。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  Sub 円消去()

  Dim 行番号 As Integer
  行番号 = 3

  Application.ScreenUpdating = False

  Do While Cells(行番号, 1).Value <> ""
    Cells(行番号, 3) = Replace(Cells(行番号, 3), "円", "")
    行番号 = 行番号 + 1
  Loop

  MsgBox "処理完了"

  End Sub
記事へブログ気持玉 / トラックバック / コメント


エクセルVBA 〜 オートシェイプの表示・非表示の切り替え

2019/03/05 18:01
■どういうときに必要だったかというと

ファイルの処理手順を書き込んだテキストボックスの表示・非表示をマクロボタン1つで行いたいとき、こんなVBAは便利ですね。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  Sub 手順書表示()

  If ActiveSheet.Shapes.Range("Text Box 1").Visible = msoTrue Then
    ActiveSheet.Shapes.Range("Text Box 1").Visible = msoFalse
  Else
    ActiveSheet.Shapes.Range("Text Box 1").Visible = msoTrue
  End If

  End Sub
記事へブログ気持玉 / トラックバック / コメント


エクセルVBA 〜 オートシェイプを一括非表示したい

2019/03/05 17:16
■どういうときに必要だったかというと

印刷会社に帳票の改訂を依頼するとき、元々エクセルで作ってあった原稿シートに改訂内容を書き込んだ吹き出しを貼りつけて指示するのですが、吹き出しがたくさんになりすぎると、できあがりのシートのイメージが分かりにくくなることがあります。
 
こんな場合、マクロで吹き出しを一括で非表示にできると便利ですね。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
■一括で非表示にするには

  Sub 吹き出しの一括非表示()

  Dim 吹き出し As Shape

  For Each 吹き出し In ActiveSheet.Shapes
    If 吹き出し.AutoShapeType = 109 Then '吹き出しの種類によって番号が異なります
      吹き出し.Visible = False
    End If
  Next

  End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
■元にもどすには

  Sub 吹き出しの一括再表示()

  Dim 吹き出し As Shape

  For Each 吹き出し In ActiveSheet.Shapes
    If 吹き出し.AutoShapeType = 109 Then
      吹き出し.Visible = True
    End If
  Next

  End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
■ちなみに一括で選択するだけなら

  Sub 吹き出しを一括選択()

  Dim 吹き出し As Shape

  For Each 吹き出し In ActiveSheet.Shapes
    If 吹き出し.AutoShapeType = 109 Then
      吹き出し.Select Replace:=False
    End If
  Next

  End Sub
記事へブログ気持玉 / トラックバック / コメント


映画『キラー・サスペクト』より

2019/02/01 01:09
映画『キラー・サスペクト』(原題:Monochrome)より

殺人鬼に転落したエマのセリフから


「お金は人間の一番醜い部分を引き出す」

Money, money, money...always brings out the worst in people.


「神がいないなんて言ってない」
「答えを出す前に証拠を見たいだけ」

No, I'm not saying it(God)doesn't exist.
It's just that I want to see some proof before I commit.


記事へブログ気持玉 / トラックバック / コメント


映画『ジュピターズ・ムーン』より

2018/12/31 01:55
無神論者の医師シュテルンのセリフ


「神が怖いんだろう『神が見てる』と思うのはいいことだ」

「神は人間が考え出した最も美しい概念だ」

「一番すごいのは『神は罰を与える』という仕組みを思いついたことだ」

記事へブログ気持玉 / トラックバック / コメント


映画『アイヒマンを追え!ナチスがもっとも畏れた男』より

2018/12/05 01:08
ナチスの戦犯アドルフ・アイヒマンの逮捕に執念を燃やす実在のドイツ人検事フリッツ・バウアーのセリフ(実際に本人がTV番組に出演した際の語りに基づく)。

(ドイツ人の誇りとは何か?我が国の民主的な憲法は誇れるものでは?との問いに対して)
いいかね、我々ドイツ人は森や山々は誇れない
我々が作ったわけではないからだ
ゲーテやシラーも誇ることはできない アインシュタインもだ
彼らの業績は彼らのもので
我々が誇るべきは
我々が行う善行だ
常に善人でいるのは難しいが
ドイツの雰囲気を決定づけるのは
父 母 子として毎日何を行うかだ
立派な憲法があるのは結構なことだ
最高の基本法を持てばいい
だが大切なのは
民主主義であることだ
記事へブログ気持玉 / トラックバック / コメント


続きを見る

トップへ

月別リンク

Songs Unsung 〜 唄いびとおらず 〜/BIGLOBEウェブリブログ
文字サイズ:       閉じる