ja7awu の回答履歴
- エクセルでひらがな入力した列を半角カタカナに一括変換するには?
エクセルに約500件もひらがな入力した列を、半角カタカナに一括変換するにはどうすればいいのでしょう?全角英数字を半角英数字に変換は出きるようですが、こんなこと出きるのでしょうか?
- Access2002 で Select Case文がエラーになる!!
Access2002を使用しています。 Select Case文でエラーになるのですが、回避方法を知っていたら教えて下さい。 書き方がおかしいのでしょうか? 例)Dim a As String a = "11" Select Case a Case "00" MsgBox "zero" Case "11" MsgBox "one" End Select このような Select Case文を書くとエラーになるんです。 エラーは、実行時エラー'5' プロシージャの呼び出し、または引数が不正です というものです。 一応、私が見つけた回避方法は、string を Variant にするというものです。 それとも、そもそも書き方がおかしいのでしょうか? Access97 だと、エラーにならないのです。 ご存知の方、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- nekoandkuma
- 回答数2
- エクセルで表のある列を最初から最後まで選択するマクロ
今現在、シートにA3:E700までの大きな表があります。 中のデータは文字列や数値です。 A列B列には途中に空白はありません。C~E列には空白もあります。 この表のB列だけを選択するマクロを書きたいのですが、データは日々増減するため最終行が特定できません。 どのように書けばいいのでしょうか?
- エクセルで表のある列を最初から最後まで選択するマクロ
今現在、シートにA3:E700までの大きな表があります。 中のデータは文字列や数値です。 A列B列には途中に空白はありません。C~E列には空白もあります。 この表のB列だけを選択するマクロを書きたいのですが、データは日々増減するため最終行が特定できません。 どのように書けばいいのでしょうか?
- エクセルのワークシートの並べ替え
エクセル2000を使っていますが、シートがsheet1~sheet**まで並んでいます。(そのファイルによって数は違いますが、シート名は必ずしも1~ではなく、また、必ずしも1つづつ増える数でもありません。どのファイルもシートは100以上あります) これを逆順に並べ替えたいのですが、どのようにすれば良いのでしょうか?多分、マクロを組めば良いのでしょうが。。。。。 ちなみに、全てのシートにデータが入っています。
- エクセルのワークシートの並べ替え
エクセル2000を使っていますが、シートがsheet1~sheet**まで並んでいます。(そのファイルによって数は違いますが、シート名は必ずしも1~ではなく、また、必ずしも1つづつ増える数でもありません。どのファイルもシートは100以上あります) これを逆順に並べ替えたいのですが、どのようにすれば良いのでしょうか?多分、マクロを組めば良いのでしょうが。。。。。 ちなみに、全てのシートにデータが入っています。
- ECXELで並べ替え
たくさんのデータが入っているのですが、これを逆の順に並べ替えたいのです。 一行ダミーに行番号をつけて、並べ替えたらと提案したのですが、何度もいろいろなデータが送られてくるので、いちいち そういう操作をするのではなく、何か簡単に出来る方法はないかと言われました。 良い方法かありましたら教えてください。
- エクセルのワークシートの並べ替え
エクセル2000を使っていますが、シートがsheet1~sheet**まで並んでいます。(そのファイルによって数は違いますが、シート名は必ずしも1~ではなく、また、必ずしも1つづつ増える数でもありません。どのファイルもシートは100以上あります) これを逆順に並べ替えたいのですが、どのようにすれば良いのでしょうか?多分、マクロを組めば良いのでしょうが。。。。。 ちなみに、全てのシートにデータが入っています。
- EXCEL VBA で,プログラムが動かない.
EXCEL2000のVBAでプログラムを組みました.(下に記す) 数千行に及ぶ数字のデータがあるのですが,20行に1回だけ,いらないデータが3行出てきます.その3行を削除していくプログラムです.Rangeのところで行を選んで欲しいのに,p列とq列を選んでしまうようです.RangeをRowsに変えたらエラーが出ました.こういう場合はどのように書けばいいのでしょうか.誰か教えてください.お願いします. Sub 削除() '20行ごとに入っている3行を削除していく. Dim i As Integer Dim p As Integer Dim q As Integer p = 21 'pの初期値は21 For i = 1 To 500 q = p + 2 r = "p:q" Range(r).Select Selection.Delete shift:=xlUp p = p + 20 Next i End Sub
- ベストアンサー
- オフィス系ソフト
- hiroyuki03
- 回答数7
- EXCEL VBA で,プログラムが動かない.
EXCEL2000のVBAでプログラムを組みました.(下に記す) 数千行に及ぶ数字のデータがあるのですが,20行に1回だけ,いらないデータが3行出てきます.その3行を削除していくプログラムです.Rangeのところで行を選んで欲しいのに,p列とq列を選んでしまうようです.RangeをRowsに変えたらエラーが出ました.こういう場合はどのように書けばいいのでしょうか.誰か教えてください.お願いします. Sub 削除() '20行ごとに入っている3行を削除していく. Dim i As Integer Dim p As Integer Dim q As Integer p = 21 'pの初期値は21 For i = 1 To 500 q = p + 2 r = "p:q" Range(r).Select Selection.Delete shift:=xlUp p = p + 20 Next i End Sub
- ベストアンサー
- オフィス系ソフト
- hiroyuki03
- 回答数7
- エクセルのVBA
エクセルのVBAを教えて頂きたいのですが。 Sheet1にテキストボックスが200個張り付いています。 テキストボックスの番号は1番から200番までです。 1つのテキストボックスに1文字のみ表記されています。 このような状態で、テキストボックスの文字が「(」であるものを見つけたら、以後、「)」を見つけるまでその間の文字の色を赤にするVBAを教えてもらいたいのですが。(「(」「)」も赤にします) あいうえおかきくけ(こさしす)せそたちつてとなにぬねの(はひふ)へほ 上記の場合は (こさしす)(はひふ) が赤になります。 宜しくお願いします。
- エクセルでVBA起動とともにセルの移動
セルがどこにいてもユーザーホームを起動したら、最初いた行の左から3番目(C列)にセルが移動するVBAを教えて下さい。よろしくお願いします。
- エクセルのVBA
エクセルのVBAを教えて頂きたいのですが。 Sheet1にテキストボックスが200個張り付いています。 テキストボックスの番号は1番から200番までです。 1つのテキストボックスに1文字のみ表記されています。 このような状態で、テキストボックスの文字が「(」であるものを見つけたら、以後、「)」を見つけるまでその間の文字の色を赤にするVBAを教えてもらいたいのですが。(「(」「)」も赤にします) あいうえおかきくけ(こさしす)せそたちつてとなにぬねの(はひふ)へほ 上記の場合は (こさしす)(はひふ) が赤になります。 宜しくお願いします。
- エクセルのVBA
エクセルのVBAを教えて頂きたいのですが。 Sheet1にテキストボックスが200個張り付いています。 テキストボックスの番号は1番から200番までです。 1つのテキストボックスに1文字のみ表記されています。 このような状態で、テキストボックスの文字が「(」であるものを見つけたら、以後、「)」を見つけるまでその間の文字の色を赤にするVBAを教えてもらいたいのですが。(「(」「)」も赤にします) あいうえおかきくけ(こさしす)せそたちつてとなにぬねの(はひふ)へほ 上記の場合は (こさしす)(はひふ) が赤になります。 宜しくお願いします。
- エクセルのVBA
エクセルのVBAを教えて頂きたいのですが。 Sheet1にテキストボックスが200個張り付いています。 テキストボックスの番号は1番から200番までです。 1つのテキストボックスに1文字のみ表記されています。 このような状態で、テキストボックスの文字が「(」であるものを見つけたら、以後、「)」を見つけるまでその間の文字の色を赤にするVBAを教えてもらいたいのですが。(「(」「)」も赤にします) あいうえおかきくけ(こさしす)せそたちつてとなにぬねの(はひふ)へほ 上記の場合は (こさしす)(はひふ) が赤になります。 宜しくお願いします。