EXCELで数字のみ半角にする数式

=REDUCE(A1,SEQUENCE(11),LAMBDA(x,y,SUBSTITUTE(x,JIS(y-1),y-1)))

文字列を右から検索できるようになりました。

EXCEL関数で右から検索するのは大変でしたが、 参考: daitaideit.com 新しいSEQUENCE関数を利用することで少し楽になりました。(簡単とまで行きませんが) ■例■ A1セル: abcde/fghijk/m から最後の"/"を探す B1セル数式: =LEN(A1)-XMATCH("/",MID(A1,SEQUENCE(L…

ExcelでFizzBuzz (SEQUENCE関数でLoop処理)

ExcelでFizzBuzz 適当なセルに =LET(x,SEQUENCE(100),IFS(MOD(x,15)=0,"Fiz Buz",MOD(x,3)=0,"Fiz",MOD(x,5)=0,"Buz",TRUE,x))

数値以外の値もランク付け

(対応バージョン:2021,WEB版,365版) 値の順位付けを行う関数にRANK関数がありますが、これは数値同士の比較にしか使えません。次の式で、任意の順位付けを行うことができます。 =XMATCH([何番目か知りたい値], SORT( [ランク付けに使う範囲] )) 使用例(結果): 数…

1セルで九九表(SEQUENCE関数)

どこでもいいので、以下の数式をセル一つに入力すると九九表ができる。 =SEQUENCE(9,1)*SEQUENCE(1,9) 応用1:アルファベット & 数字 =CHAR(CODE("a")-1+SEQUENCE(9,1))&SEQUENCE(1,9) 応用2: 1セルでカレンダー =LET(_year,2022,_month,SEQUENCE(1,12),_day,SE…

カンマ区切りを分割する数式

私のEXCELにもLAMBDA関数がやってきたので、使ってみました。のメモ。 以下の数式をSPLITCSVという名前で名前の管理から登録します。 =LAMBDA(文字列,FILTERXML(SUBSTITUTE("<r><n>" & 文字列 & "</n></r>",",","</n><n>"),"r/n")) 上記は、"&"や"<"などの比較的使われる文字が入</n>…

EXCEL関数でグループごとに連番を振る方法-CountIf使わない版

A列にグループごとに連番を振りたいデータが入っているとして A2セルに =XMATCH(ROW(),FILTER(ROW(A:A),A:A=A2)) と入れて下までコピー 結果 解説 FILTER(ROW(A:A),A:A=A2) は A2と同じデータのセルの行番号の集合を作ります。 ここでは、 2, 3, 6, 11です。 こ…

VBAで配列リテラル風なこと

多くの言語で array = ["a","b","c"] のように配列の値を直接コード中に指定する方法が提供されているが,VBAには無い。 配列の宣言とSplit関数を用いることで擬似的に文字列を要素とする配列のリテラルを実現することができる。 Dim Array Array = Split("a b …

VBAで配列リテラル風なこと

多くの言語で array = ["a","b","c"] のように配列の値を直接コード中に指定する方法が提供されているが,VBAには無い。 配列の宣言とSplit関数を用いることで擬似的に文字列を要素とする配列のリテラルを実現することができる。 Dim Array Array = Split("a b …

結合したセルの高さを自動調節する(縦方向の結合にも対応)

縦方向の結合にも対応させてみたが思ったより大げさになってしまった。 Option Explicit '結合したセルの高さを自動調節する ' ' 処理の概要 ' - 新しいブックを作成し、書式、標準のフォントとそのサイズを選択したセル範囲からコピー ' (標準のフォントの…

横方向に結合したセルの高さを自動調節する

'横方向に結合したセルの高さを自動調節する ' ' 処理の概要 ' - 新しいブックを作成し、書式、標準のフォントとそのサイズを選択したセル範囲からコピー ' (標準のフォントの大きさによって長さ当たりのピクセル数が変わってくるので標準のフォントを揃える…

横方向に結合したセルの高さを自動調節する

'横方向に結合したセルの高さを自動調節する ' ' 処理の概要 ' - 新しいブックを作成し、書式、標準のフォントとそのサイズを選択したセル範囲からコピー ' (標準のフォントの大きさによって長さ当たりのピクセル数が変わってくるので標準のフォントを揃える…

GoogleSpreadsheetでファイルを越えてのコピー

GAS

Google Apps Script SpreadSheetで通常のCopyTo()では別のファイルへのコピーができないので作成。 //他のファイルのシートにコピーする //数式と値のみ、書式はコピーされない function copyToAnotherFile(fromSheet, toSheet){ var fromRange = fromSheet.…

いま選択しているページだけ印刷(特定のセルのページ番号を取得)

' Printout Current Page 'アクティブなセルのあるページだけ印刷 Public Sub PrintCurrentPage() Dim PageNumber As Long PageNumber = PageNumberOf(ActiveCell), s.PrintOut From:= PageNumber , To:=PageNumber End Sub '特定のセルのページ番号を取得 '…

横方向にセル連結

複雑な表の作成を行う方は、クイックアクセスツールバーに入れておくと便利かもしれません。単に連結させると、セル区切りで改行が入ってしまうので取り除いています。 *1と*2の行を削除すると単にセルの連結のみ行ないます。 Sub 横セル連結() Application.…

Google Spreadsheet セルの値を配列を使用してコピー

// Google Spreadsheet のイディオム // セルの値を配列を使用してコピー // function CopyCellValueByUsingArray() { var address = "A1:D8"; var top = 2; var left = 6; //テストデータの用意 var sheet = SpreadsheetApp.getActiveSheet(); sheet.clearC…

千年に一度

何年かぶりにlogとか持ち出して計算してみました1000年に一度の事件がここ10^x年でおこる確率おこらない確率pとすると p=(1-10^-3)^x log p = x log(0.999) = x log(0.001*999)=x(log(999)-3)=-0.00043xp=10^-0.00043xおこる確率は 1-p なのでここ10年で起こ…

なんかもうものすごく身につまされる

http://anond.hatelabo.jp/20100904122315

Microsoft Office2010買ってみた

Microsoft OFFICEはずっと2003のままだったんだけど 家マシンに2010買って入れてみた。 ・うちのマシンでは起動はすごく速くなった ・動作も機敏な感じがする ・一部で評判の悪いリボンは自分にはそんなに違和感ない。むしろWordのスタイル機能の使い勝手が…

WORD 差し込み印刷でレコード1件1ファィルで保存する方法

'===ポイント=== 'レコードの移動は、MailMerge.DataSource.ActiveRecord の設定により行う ' MailMerge.DataSource.Included プロパティの設定により、差し込みデータに含むかどうか設定できる Sub MakeResultFiles() ' ファィル名に使うキーとなるフィール…

学位記が届きました。

信州大学大学院より、学位記が届きました。 6年越しで除籍ぎりぎりの滑り込みセーフでしたが何とか修了する事が出来ました。#信州大学の学位記って学長名が入ってない。以外。

Refreshlinkを使用してリンクをカレントフォルダのMDBに更新する

[Access VBA] Refreshlinkを使用してリンクをカレントフォルダのMDBに更新する Const DbName = "XXXX" Sub RefreshTableLink() Dim t As TableDef For Each t In CurrentDb.TableDefs If t.Connect <> "" Then Debug.Print t.Connect t.Connect = ";DATABASE…

修士論文提出しました。

お勉強の記録にと思って始めたブログもほとんど放置ではや数年。 何とか 在籍年限ぎりぎり卒業できそうです。とりあえずご報告まで。 今月12日は修士論文審査です。どきどき。

再アップ

http://d.hatena.ne.jp/robbie21/20060821/1156193877#c1263760579 リンク切れ修正しました。

PDFからWordに変換

PDF=>WORDの変換ツールとか使うとテキストボックスの羅列みたいになってしまう事が多かったけど。ちゃんと実用的に編集可能なWORDファイルとして変換される。 これは便利。http://www.pdftoword.com/http://convertpdftoword.net/Default.aspx

Thunderbirdでタイムアウトエラー

プロキシの設定ですべてのプロトコルでプロキシ使うことになってるとpopサーバへの接続にまでプロキシ使おうとするので、つながらなくてタイムアウトエラーになる。 ツール-オプション-ネットワークとディスク領域-接続設定-すべてのプロトコルでこのプロキ…

夫婦別姓

やってみるとどうってことないよ うちはやってるよ 法律的には現在のところ「事実婚」ってなるやつ こどもの出生届出すときには籍を入れました。そして「離婚」 認知とかめんどくさいからね。 姉は連れ合いの姓、弟は僕の姓。 どうってことないってのが大事…

初めてのUserScript !添削希望!

今度うちの職場に入る事になったシステムはソースコードとか見せてくれないようだけど、ブラウザベースで動作するので、UserScriptを使って、クライアント側で勝手に機能追加とかできないかと目論んでいます。と言うわけで、 Google Chrome 2.0 で使える(自…

メモ

Private Sub OpenFolder(Path As String) Dim sa Set sa = CreateObject("Shell.Application") sa.Open Path End Sub

生理に負けたんじゃないんだよ

http://blog.livedoor.jp/dankogai/archives/51225683.html 倫理は法理にかなわない、法理は心理にかなわない、心理は生理にかなわない、そして生理は物理にかなわない。倫理的な正論をいくら唱えたところで、レイプという現象をこの宇宙が許していることを…