マイクロソフト社製の表計算ソフト。Microsoft Officeを構成するソフトの1つ。 簡単なデータベースはこれで作れる事が多い。
ワークシート関数をFunctionプロシージャで自作してみる遊びです。前回【SUM関数】を自作してみた時に思い付いたのですが、 今回は「100円＋100円を200にしてくれるSUM関数」を作ってみようと思います。 こんな関数↓ですね。しれっと※1の1は無視しているのが気遣いです 便利そうなので公式関数ぶった名前「TEXTSUM」にしてみました。気に入ったら使ってみてください。 ソースコード 解説 ソースコード ' SUM関数 文字列が混じっても計算してくれる版 Function TEXTSUM(ParamArray 数値()) As Double If IsMissing(数値) Then T…
はじめまして！「創意工夫の伝道師」モーリーです IT業界で30年以上、主にデータベース関連の仕事に携わってきました。 直近では、ExcelやAccessを駆使して「これって本当に必要？」と感じるような無駄な作業をなくし、みんながもっと楽しく、効率的に働ける仕組み作りをサポートしてきました。 例えば、100時間かかっていた作業をたった30分で終わらせたり、ヒューマンエラーを70%も減らしたり。 散らばった情報を一つにまとめて業務を劇的に効率化させ、結果的に残業を大幅に削減し、部署の成績アップにも貢献してきました。 「Excelの魔術師」として、さまざまな実績を積み上げています。 プライベートでは…
中心Pがx=-0.5の直線上にあり半径がRで円弧が原点と(1,0)を通る円を「中円」と呼ぶ。二等辺三角形の高さをH =√(R2-0.25)として、Pの座標は(0.5, -H)になる。左半分にも(-0.5, H)を中心とする中円の円弧を描く。この状態なら扇形の中心角は必要ないが、図を回転させることを考えて中心角の半分ΘR=asin(0.5/R)を計算しておく。 回転角Θ’を度数法で与え、作図用にΘ = π Θ’/180で弧度法に変換しておく。θ1 =Θ, θ2 = θ1+πとして、中円の中心の座標(x0, y0)は(0.5 cosθ1+H sinθ1, 0.5 sinθ1- H co θ1)と(…
ワークシート関数をFunctionプロシージャで自作してみる遊びです。今回は【SUM関数】を自作してみました。 ソースコード 解説 本家との違い（改良点） 文字列型の数値を合計する 日付への対応 ジャグ配列への対応 ソースコード ' SUM関数 和風スパ版 Function spSUM(ParamArray 数値()) As Double If IsMissing(数値) Then spSUM = 0: Exit Function ' 本家と違い引数なしを許す ' 各引数をループ Dim 各引数 As Variant For Each 各引数 In 数値 ' Rangeの場合 If TypeN…
菊花紋は皇室の紋章で、パスポートにも印刷されている日本を代表する図案だが、Excelで描くにはちょっとした数学的問題を解かなければならない。ここでは花びらの数Nと小円の半径Rをパラメタとして与え、単位円上に菊花紋を描くことを考える。準備としてグラフエリアを正方形にして、縦軸・横軸とも範囲を（-1.1,1.1）とし、「線なし」を選択する。花びら1枚に対応する偏角をΘ = 2π/Nとする。12時の位置（0,1）からi = 0,..., N-1に対しθi = π/2 + i Θとすると、原点と(cos θi, sin θi)を結ぶ線がi番目の花びらの軸線で、原点とPi = (cos (θi+Θ/2)…
毎週金曜日 22:00～ 「スパとふゆの0からはじめるExcelマクロ」 と称して、YoutubeLive配信を行います！ Excelマクロ初心者の友人ふゆさんに0からVBAを教ているところを、 ただLive配信として垂れ流すだけの日常系配信です。ゆるくのんびりやるのでお気軽にご参加ください(´∀｀) 第1回は2025/7/18(金)22:00～です！ 以降のスケジュールはYoutube・X(Twitter)・Discordにてご確認ください。 Zoom・YoutubeLiveどちらでもご視聴＆コメントいただけます。 日程：毎週金曜(他イベントあればお休み) 時間：22:00～23:00 ◇ …
星型は世界中で愛用される図案で、東アジアだと中国や北朝鮮の国旗に五芒星が登場する。ここでは星の頂点の数をNとし、単位円上に正N角形の頂点を定め、そこから真向かいの隣の頂点に対角線を引くことで星型を描いてみる。準備としてグラフエリアを正方形にして、縦軸・横軸とも範囲を（-1.1,1.1）とし、「線なし」を選択する。12時の位置（0,1）から始めて反時計回りでi番目の頂点の座標は(cos(2(i-1)π/N+π/2), sin(2(i-1)π/N+π/2))である。真向いの隣の頂点は、iに対しi+int(N/2)+1を選べばよい。もっとスマートなやり方があるかもしれないが、ここではi=1,2,3,…
知らずに落ちると抜け出せなくなるVBAの落とし穴です。 原因不明の「Rangeクラスの○○メソッドが失敗しました」エラーが発生する マクロを作った直後だけ発生し、ファイルを保存したりすると出なくなる あたりにお悩みの方は、この落とし穴に落ちていないかご確認ください。 シート名の変更中はRangeオブジェクトにロックがかかる セルの値を編集中(ダブルクリックやF2で編集モード中)は、 Rangeオブジェクトへのアクセスに制限がかかり、このようにセルの編集関連のアイコンがグレーアウトします。 編集モード中はVBE(マクロを書く画面)には移動できませんので、 この状態でマクロを実行することはできませ…
韓国人や中国人が蛇蝎のごとく忌み嫌う旭日旗だが、日輪と光線からなるデザインはシンプルで美しい。ここではExcel上で次のパラメタを与えて、色々な旭日旗が瞬時に描けるようにしてみた。 N 光線の数 R 日輪の半径 X0, Y0 日輪の中心の座標 準備としてグラフエリアを1:1.5くらいの横長にしておき、横軸の範囲を（-2.4,2.4）、縦軸の範囲を（-1.6,1.6）とした上で「線なし」を選択した。Excelのグラフには塗りつぶし機能がないので、日輪は線を太く（15pt）して半径がR, 0.8 R, 0.6 R, 0.4 R, 0.2 Rの同心円を重ね描きした。したがって日輪の半径は指定したRよ…
Excelのオートフィル機能をVBAから実行し、 セルのコピーや連続データの作成を行う方法を解説します。RangeオブジェクトのAutoFillメソッドを使用します。 基本形 実行例 解説 AutoFillメソッドの処理速度 Resizeプロパティとの併用 AutoFillメソッドがエラーとなるパターン 基本形 始点セル.AutoFill Destination:=出力セル範囲, Type:=オートフィル設定 ' 省略形 始点セル.AutoFill 出力セル範囲, オートフィル設定 実行例 ' A1セルの内容をA1:A5までコピー Range("A1").AutoFill Range("A1:…
matome.naver.jp
fta7.jp
twitter.com
ascii.jp
www.shiningmaru.com
bipblog.com
www.nikkei.com
matome.naver.jp
cashew.hatenablog.com
