No.2ベストアンサー
- 回答日時:
> 文字列の長さだけ繰りかえすとのことですが、色々考えてみましたがどうも関数が作成できずマクロになってしまいます。
何とか関> 数で処理したいのでよろしければ
> 参考例をおしえていただければ大変有り難いのですが。
関数だけでやるなら、事前に最大何バイトになるか調べておいて
ひたすら繰り返すしかないんじゃないでしょうか?
=midb(a1,1,1)&midb(a1,2,1)&midb(a1,3,1)&midb(a1,4,1)&…
だから、「マクロでループさせる方が美しい」んですね。
この回答への補足
私もaccessで同じ方法でやったのですがだめでした。
それはaccess95以降、文字コードが変わったからです。
以前はANSI でしたが現行は UNICODE になり、すべての
文字が2バイト表示となったからです。
結局2バイトめが 0 でなおかつ1バイトめが英数字だけを判断させるという面倒な方法になります。
あわせて文字列が最大バイト数以下ですと計算結果がerrorを返します。よってさらに複雑になります。
やはりマクロでループがよいのかもしれません。
No.5
- 回答日時:
ファイルメーカーの関数ですが、
Substitute(郵便番号,"-","") & MiddleWords(Substitute(住所,"-",""),2,3)
でどうでしょうか。
ただし、すべての住所で正しい出力が得られるか確認していません。
No.4
- 回答日時:
アクセスの組み込み関数だけを使いたいとのことですが、関数を作るイコール組み込み関数では無くなってしまいます。
アクセスの提供している関数には、mr_ayumi さんが求めているものは無いので関数を使わないイコールマクロを使用するしかありません。「諸事情によりaccessがもっている組み込み関数だけで処理を行いたい」
の背景を説明してもらえると、ご回答できるのですが。
ちなみに 桐を使用して一括処理で #条件選択 を使用しても同様のことが出来ますが、この場合表を作成→データ読み込み→置換 と言う一括処理をくむことになります。
それでいいのでしょうか?
No.3
- 回答日時:
カスタマバーコードを印字するのになぜ半角文字だけが抽出できなければいけないのかは分かりませんが、全半角混じりから半角英数字のみを抽出する関数は以下の通りです
Public Function HankakuDake(Hikisu As String) As String
Dim i As Integer
Dim Moji As String
Dim MojiAsc As Integer
For i = 1 To Len(Hikisu)
Moji = Mid(Hikisu, i, 1)
MojiAsc = Asc(Moji)
If (MojiAsc >= 48 And MojiAsc <= 57) Or _
(MojiAsc >= 97 And MojiAsc <= 122) Or _
(MojiAsc >= 65 And MojiAsc <= 90) Then
HankakuDake = HankakuDake & Moji
End If
Next
End Function
これでいいのでしょうか?
No.1
- 回答日時:
東京都千代田区8-9東京マンションA-1号 を89A1にするというと、一番
大変なのは2バイト文字を消すところでしょうかねぇ。
Accessでも同じじゃないかと思うんですが、Excelやファイルメーカの
テキストの指定位置から指定バイト数取り出す関数(MIDBとかMiddleb)
で、2バイト文字のところから1バイトだけ取り出そうとすると1バイト
スペースが返ってきます。これを文字列の長さだけ繰り返すとすべての
2バイト文字が1バイトスペースに化けますので、あとはSubstituteで
スペースやハイフンを詰めてやれば完成です。
マクロでlenb(文字列)回ループさせる方が美しいけど、とりあえず関数
だけでも何とかなりますということで。
この回答への補足
ご指導ありがとうございました。
2バイト文字のところから1バイトだけ取り出そうとすると1バイトスペースが返ってくることを知りませんでした。
文字列の長さだけ繰りかえすとのことですが、色々考えてみましたがどうも関数が作成できずマクロになってしまいます。何とか関数で処理したいのでよろしければ
参考例をおしえていただければ大変有り難いのですが。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) EXCELの1行を1枚の用紙にそれぞれ印刷したい。 3 2022/10/10 11:35
- 歴史学 郵便ではないんですが、『発送』と記載されていて、この様な印鑑(押印)が押された用紙(厳密には写真・印 4 2022/04/03 22:23
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- 事務・総務 郵便払込取扱票への記入揺れ 1 2022/03/26 22:54
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- Word(ワード) office365のWordの印刷範囲が勝手に狭くなっています。 4 2022/07/18 16:31
- Excel(エクセル) LEFT関数で文字数を指定しないで取りだす方法 7 2023/06/30 09:49
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の容量(サイズ)についての...
-
KBとMB
-
1Mバイトって何バイト?
-
KBのMB違いって
-
携帯電話の略語であるMBって英...
-
EXCELでの16進数取り出し、上...
-
DVD-R 4.7GBって、何byte でし...
-
K KB MB について詳し...
-
実行計画の「COST」と「BYTE」...
-
文字数(バイト数)の数え方が...
-
16進数どうしの乗算
-
文字列をバイト数分表示するには?
-
カナカナの(半)濁点がついた文...
-
2バイト文字を一括削除するマクロ
-
32bit = 4GB(バイト)?
-
シフトjisコードで記載された40...
-
ブルーレイ2層50GBの焼き...
-
byte、KB、MB の単位の変換につ...
-
1バイトは何ビット?
-
ギガバイト メガバイト この違...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELでの16進数取り出し、上...
-
KBのMB違いって
-
文字の容量(サイズ)についての...
-
携帯電話の略語であるMBって英...
-
1Mバイトって何バイト?
-
実行計画の「COST」と「BYTE」...
-
CSV データのバイト数を調べる...
-
K KB MB について詳し...
-
KBとMB
-
GB と Gbの違いの意味
-
2バイト文字を一括削除するマクロ
-
文字数5000字、文字コードが2バ...
-
空メールのデータ量はどれくら...
-
メモリーの単位を解説してくだ...
-
KとKB
-
カナカナの(半)濁点がついた文...
-
アルファベット30文字は何バイ...
-
ffftpのサイズの単位は何でしょ...
-
Oracle AL32UTF8でのバイトサイ...
-
文字列をバイト数分表示するには?
おすすめ情報