[Mac][Excel] 数式を値に、値を数式に変換する (イコールを取ったり、つけたりする) マクロ Excel for Mac

USBにあるエクセルファイルのデータを参照して、PCにあるエクセルファイルで作業する機会があった。というのは、USBのエクセルファイルには、自分のPCに置いておきたくないような情報が入っていたので、そのファイルをPCに移してしまうことはせずに、PCのエクセルファイルからデータを読み出し、そのPC上のエクセルファイルで作業を進めたのだ。

イメージとしてはこのような感じ：

エクセルファイル2 をPCにコピーしたくなかったので、エクセルファイル1 で参照して作業

もうすこし具体的には、エクセルファイル1 (PC上のファイル) で

='/Volumes/USB名/.../[エクセルファイル2.xlsx]シート名'セル番地

という数式を入力して、PC上でUSB内のエクセルデータの値を参照していた。

想定としては、USBを抜いてしまえば、PCのファイルからは参照されたデータが見えなくなってしまうと思っていたのだが、そうでもなさそう。エクセルファイル1 を開いた際に、リンクを更新しなければ、エクセルファイル2 のデータが見えてしまう (ようだ)。

"更新しない" をクリックすると、USBのデータが見えてしまう (みたい)

USBのデータがPCから見えてしまうのを避けたい。ということで、解決策として、上記の数式を値にしてしまうマクロ、つまりイコールを取ってしまうマクロを書いてみた。イコールを取られた値に対して実行すると、またイコールが付与された数式になります。次のようなイメージ：

='/Volumes/USB名/.../[エクセルファイル2.xlsx]シート名'セル番地

↓↑

'/Volumes/USB名/.../[エクセルファイル2.xlsx]シート名'セル番地

	Sub mySecure() '数式を値に、値を数式に変換
	Dim mycell As Range
	Dim mystring As String
	For Each mycell In Selection
	If mycell.Value <> "" Then '空欄のセルには操作を加えない
	'数式であればイコール(=)をとる
	If mycell.HasFormula Then '.HasFormula は数式であれば True を返す
	mystring = mycell.Formula
	mycell.Value = Right(mystring, Len(mystring) - 1)
	'数式でなければイコール(=)を加える
	ElseIf Not mycell.HasFormula Then
	If Left(mycell.Value, 8) = "/Volumes" Then
	mycell.Formula = "='" & mycell.Value 'single quotation mark
	Else
	mycell.Formula = "=" & mycell.Value
	End If
	End If
	End If
	Next mycell
	End Sub

view raw mySecure.xlsm hosted with ❤ by GitHub

＊変換したい範囲を選択してから実行します。

[Mac][Excel] Excel for Mac 2016 でマクロを使って、ショートカットキーのユーザー設定の代用にする

諸事情あり Excel for Mac 2016 を使っているが、どうやら、2011版と違い、ショートカットキーのユーザー設定ができない (ようだ)。困った。

ただ、いろいろなボタンを押してもがいていると、マクロにはショートカットキーを当てられるとわかったので、これで代用している。ということで、しばしば使う命令をマクロで書いてみた。下の方にスクリプトを載せておきましたので、もしも役に立つ方がいらっしゃったら、ぜひご利用ください。

• ＊なお、スクリプトは、「個人用マクロブック」に保存します。そうすると、どのファイルにおいても、上記のコマンドを利用することができます。個人用マクロブックの作成方法などについては All About のこちらの記事 が分かりやすいです。


• ＊スクリプトを書いたら、[ツール/マクロ.../オプション...] をクリックします。そうすると、ショートカットキーを設定できます。

• MyHeight・・・行の高さを変更
• MyMerge・・・セルの結合/結合を解除
• MyPrintAreaSetUp・・・選択された部分を印刷範囲として設定
• MyCenter・・・選択範囲で文字列を中央ぞろえ

	Sub MyHeight() 'Define the height of the row(=tate) of the selected cell.
	Dim tate_now As Single
	tate_now = Selection.RowHeight
	tate_now = tate_now / Application.CentimetersToPoints(1)
	Dim tate As String
	tate = InputBox("Type Height (cm).", "Set Height", tate_now)
	'実行
	If tate <> "" Then
	Selection.RowHeight = Application.CentimetersToPoints(CSng(tate))
	End If
	End Sub
	Sub MyMerge() 'Merge/Unmerge cells
	Selection.MergeCells = Not Selection.MergeCells
	End Sub
	Sub MyPrintAreaSetUp() 'Set Selected Area as the Print Area
	Dim hani As Range
	Set hani = Selection
	ActiveSheet.PageSetup.PrintArea = hani.Address
	End Sub
	Sub MyCenter() 'Sentaku_hani_de_chuou
	With Selection
	.HorizontalAlignment = xlCenterAcrossSelection
	.VerticalAlignment = xlBottom
	.WrapText = False
	.Orientation = 0
	.AddIndent = False
	.ShrinkToFit = False
	.MergeCells = False
	End With
	End Sub

view raw MyShortcut.xlsm hosted with ❤ by GitHub