[[20100516101359]]　『カタカナの場合，データ削除』（比良）　ページの最後に飛ぶ

『カタカナの場合，データ削除』（比良）

 Ａ１セルとＡ２セルにデータが入っています。

 Ａ１セルのデータが，全角カタカナと全角スペースの場合だけ，
 Ａ２セルのデータを削除することをＶＢＡでやりたいのですが，
 どうなりますか。

 Sub test()
    With Range("A1")
        If Check(.Value) Then
            .Offset(1).ClearContents
        End If
    End With
 End Sub

 '全角カタカナ、全角空白のみならTrueを返す
 Function Check(SS As String) As Boolean
    If SS Like "*[!ァ-ヶ　]*" Then
        Check = False
    Else
        Check = True
    End If
 End Function

 （トオリガカリ）

 うまくいきました。
 どうもありがとうございました。

 （比良）

 すみませんが，また教えてください。
 上記で，Ａ１にデータが入っていないときにも，Ａ２のデータを削除するようにしたいのですが，
 どうなるでしょうか。

 ようするに

 Ａ１が「全角カタカナと全角スペース」　ＯＲ　「データがＢＬＡＮＫ」　の場合，Ａ２を削除

 としたいのですが。

 （比良）

  （トオリガカリ）さんのコードをお借りします。
 Sub test()
    With Range("A1")
        If Check(.Value) Then
            .Offset(1).ClearContents
        ElseIf .Value = "" Then      '追加
            .Offset(1).ClearContents '追加
        End If
    End With
 End Sub
　
(みやほりん)(-_∂)b

 うまくいきました。
 基本的なことだったようで。
 いつもお世話になります。
 ありがとうございました。

 （比良）

 またお教え願います。

 A1セルにデータを，漢字・ひらがな・カタカナで入力します。

 B1セルに
 =IF(COUNTIF(A1,"*　*"),MID(A1,FIND("　",A1)+1,50),"")　と関数を入れます。
 これは，A1セルの初めての全角スペースより右側のデータを抽出するものです。
 A1セルに「あい　うえお」と入力したら，「うえお」が表示されます。

 C1セルに，「 =B1 」　として，B1セルのデータを引用します。

 ここで，上記のコードを参照して

 Sub auto_open()
    With Sheets("Sheet1").Range("B1")
        If Check(.Value) Then
          Sheets("Sheet1").Range("C1").ClearContents
        ElseIf .Value = "" Then
          Sheets("Sheet1").Range("C1").ClearContents
        End If
    End With
 End Sub

   '全角カタカナ、全角空白のみならTrueを返す
 Function Check(SS As String) As Boolean
    If SS Like "*[!ァ-ヶ　こと]*" Then
        Check = False
    Else
        Check = True
    End If
 End Function

 というコードを作りました。
 これは，ファイルを開いたときに，オートオープンで，B1のデータがカタカナのときに，C1のデータが
 削除されるものです。

 ここで，A1にデータが入っていないままファイルを開くと，C1のデータが削除されて
 「 =B1 」が消えてなくなってしまいます。
 上記B1セルの関数の最後の「""」が関係しているようです。
 「""」を「"あ"」にすると，ファイルを開いたとき，「 =B1 」は消えません。

 B1セルの関数の最後は「""」のままで，A1セルにデータが入力されていないときには，
 ファイルを開いたときにC1セルの「 =B1 」が消えないようにして，
 A1セルにデータを入力したら，次にファイルを開いたときに，B1のデータがカタカナなら
 C1セルのデータが削除されるようにしたいのですが，どうなりますか。

 （比良）

コメント返信：

[ 一覧(最新更新順) ]

[[20100516101359]] 『カタカナの場合，データ削除』（比良） ページの最後に飛ぶ

[[20100516101359]]　『カタカナの場合，データ削除』（比良）　ページの最後に飛ぶ