5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 92

417 :名無しさん@そうだ選挙にいこう:2010/06/16(水) 22:05:03
If Left(Cells(i, 1).Value, 1) = "福" Then
 Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "宮" Then
 Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "山" Then
 Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "長" Then
 Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "愛" Then
 Cells(i, 7).Value = "合格"
ElseIf Left(Cells(i, 1).Value, 1) = "大" Then
 Cells(i, 7).Value = "合格"
End If

Cells(i, 1)の頭文字が振り分けたいですけど
おねがします

338 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)