アクセスカウンタ

Songs Unsung 〜 唄いびとおらず 〜

プロフィール

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

映画『ウインド・リバー』より

2019/06/03 01:23
映画『ウインド・リバー』(原題:Wind River)より

ワイオミングの先住民族保留地ウインド・リバー。ネイティブアメリカンの
妻との間にもうけた娘を未解明事件の犠牲者として失った白人ハンター
のランバート。保留地で生まれドラッグに溺れドロップアウトし、妹を何者
かに暴行された上に失った若者チップ。そのふたりの会話から。


チップ:
 俺は世界中を相手に戦ってやるんだ
 どんな気持ちかアンタにはわかるだろう?

  I want to fight the whole world
  You got any idea what's that feel like

ランバート:
 その気持ちはわかるさ
 だけど俺はその気持ちのほうと戦うことにしたんだ
 なぜか分かるか?
 世の中のほうが勝つに決まってるからな

  I do
  I decided to fight the feeling instead
  Know why?
  Because I fear that the world would win
  

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


エクセル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
無神論者の医師シュテルンのセリフ


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

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

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

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


続きを見る

トップへ

月別リンク

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