2025Oct - roichimakoa @Wiki

2025/11/4(Tue)
Sub 分以上未回答を変換()

   Dim i As Integer
   Dim originalValue As String
   Dim numericPart As String

   For i = 1 To 200
       originalValue = Cells(i + 2, 7).Value

       ' "分"が含まれているか確認
       
       If Right(originalValue, 3) = "分以上" Then
           ' "分以上"を取り除いた数値部分を取得
           numericPart = Left(originalValue, Len(originalValue) - 3)
           ' 隣のセルにコピー
           Cells(i + 2, 8).Value = numericPart
       
       
       ElseIf Right(originalValue, 1) = "分" Then
           ' "分"を取り除いた数値部分を取得
           numericPart = Left(originalValue, Len(originalValue) - 1)
           ' 隣のセルにコピー
           Cells(i + 2, 8).Value = numericPart

       ElseIf Right(originalValue, 2) = "以上" Then
           ' "以上"を取り除いた数値部分を取得
           numericPart = Left(originalValue, Len(originalValue) - 2)
           ' 隣のセルにコピー
           Cells(i + 2, 8).Value = numericPart

       Else
           ' "分"や"以上"がない場合はそのままコピー
           Cells(i + 2, 8).Value = originalValue
       End If
 

   Next i

End Sub

Sub CopyAsNumberOrText()

   Dim i As Long
   Dim cellValue As String
   Dim numericValue As Double

   For i = 1 To 200
       cellValue = Trim(Cells(i + 2, 8).Value)
       
       If IsNumeric(cellValue) Then
           ' 数値としてコピー
           Cells(i + 2, 9).Value = CDbl(cellValue)
       Else
           ' 文字列としてコピー
           Cells(i + 2, 9).Value = cellValue
       End If
   Next i

End Sub

総合型選抜時代
9798311083263

2025/10/30(Thu)

自分に課せられた
やるべきことをしっかりやろう

2025/10/29(Wed)

Sub 分以上未回答を変換()

   Dim i As Integer
   Dim originalValue As String
   Dim numericPart As String

   For i = 1 To 200
       originalValue = Cells(i + 2, 7).Value

       ' "分"が含まれているか確認
       
       If Right(originalValue, 3) = "分以上" Then
           ' "分以上"を取り除いた数値部分を取得
           numericPart = Left(originalValue, Len(originalValue) - 3)
           ' 隣のセルにコピー
           Cells(i + 2, 8).Value = numericPart
       
       
       ElseIf Right(originalValue, 1) = "分" Then
           ' "分"を取り除いた数値部分を取得
           numericPart = Left(originalValue, Len(originalValue) - 1)
           ' 隣のセルにコピー
           Cells(i + 2, 8).Value = numericPart

       ElseIf Right(originalValue, 2) = "以上" Then
           ' "以上"を取り除いた数値部分を取得
           numericPart = Left(originalValue, Len(originalValue) - 2)
           ' 隣のセルにコピー
           Cells(i + 2, 8).Value = numericPart

       Else
           ' "分"や"以上"がない場合はそのままコピー
           Cells(i + 2, 8).Value = originalValue
       End If
 

   Next i

End Sub

Sub CopyAsNumberOrText()

   Dim i As Long
   Dim cellValue As String
   Dim numericValue As Double

   For i = 1 To 200
       cellValue = Trim(Cells(i + 2, 8).Value)
       
       If IsNumeric(cellValue) Then
           ' 数値としてコピー
           Cells(i + 2, 9).Value = CDbl(cellValue)
       Else
           ' 文字列としてコピー
           Cells(i + 2, 9).Value = cellValue
       End If
   Next i

End Sub

=AVERAGEIF($B$3:$B$200,"1",$H$3:$H$200)

2025/10/28(Tue)

1 1分
1 未回答
2 60以上
2
3
3
4
4
5
5

all class ave
1class ave
2class ave
3class ave
4class ave
5class ave

all class not answer
1class not answer
2class not answer
3class not answer
4class not answer
5class not answer

all class answer
1class answer
2class answer
3class answer
4class answer
5class answer

2025/10/25(Sat)

図書返却

2025/10/21(Tue)
担当したことはしっかりやろう。

2025/10/16(Thu)

看護

どんな人ができるかなぁ？

看護師　国家試験

2025/10/10(Fri)

What you're doing is not wrong.
Believe in yourself and your abilities.
Be healthy and stay resilient.

2025/10/2(Thu)

1191094
1228612

2025/10/7(Tue)

LEADER LBO-510B
KN DUAL TRACE OSCILLOSCOPE NSS-250B

シロイヌナズナ　　　　学名　Arabidopsis Thaliana

被子植物門　真正双子葉類　バラ上類　バラ類　アオイ類　アブラナ科　シロイヌナズナ属
angiospermae, Eudicots, Superrosids, rosids, malvids, Brassicales, Brassicaceae, Arabidopsis

旧分類 被子植物門 双子葉植物綱　ビワモドキ亜綱　フウチョウソウ目 アブラナ科　シロイヌナズナ属
Spermatophyta, Angiopermae, Dicotyledoneae, Dillenniidae, Scrophulariaceae, Brassicaceae, Arabidopsis

一年草　芽生え 9月～11月　ロゼット状で越冬
ハクサイ(Brassica rapa, 栽培化の過程で3倍化) 、カブ、ミズナ、キャベツ、ブロッコリー、ナタネ、ダイコンもアブラナ科
↑　
ps://www.digital-museum.hiroshima-u.ac.jp/~main/index.php/シロイヌナズナ/
ps://www.corvet.jp/search/photo_detail/?st=rs&pd=NUA049954
ps://www.kazusa.or.jp/news/news20110901/
ps://hanamokusanpo.jp/other_book/79530
M. Asai, 身近な植物の芽生えハンドブック2, 9784829981375