ユーザーが数値以外を入力したらエラーを返すコードを作成したのですが
while (!int.TryParse(Console.ReadLine(), out enterNum))
こちらの行を TryParse だけでなく、それ以外の分解した書き方でも作成するように指示を受けたのですが、書き方が分からず、どなたか教えて頂けないでしょうか?
【ソースコード】
int enterNum;
Console.WriteLine("勝負回数を入力してください");
//入力された文字が数値に変換出来なかった場合、inputerrorを表示させループさせる
while (!int.TryParse(Console.ReadLine(), out enterNum))
{
Console.WriteLine("inputerror");
}
VBAにて、最終列の取得ができません。
また、繰り返し処理を3列処理、step5、3列処理、step5…と繰り返し行う方法もご教授いただきたいです。
エクセルはo365を使用しております。
①最終列の取得
実際は300列近くの表になります。
最終行は取得できたのですが、最終列がなぜかエラーも出ず、処理が行われません。
②不規則な繰り返し処理
画像の水色部分のみ処理を行いたいです。
3列処理と記載したのですが、セル結合しているので、考え方が合っているのかも不明です。
塗りつぶされているセル一つ一つに処理を行いたいです。
また、行列共に可変します。
実行したいマクロは、選択したブックのSheets(1)の表の中の水色に入力されている文字列が「1」か「2」か判断するというものです。
「1」と入力されていれば → 別ブックのA1セルに1をカウント
「2」と入力されていれば → 別ブックのB1セルに1をカウント
※水色セルは参考で用意したものなので、実際は塗りつぶしされていません。
※空白のセルもあります
①②の解消法のご教授をよろしくお願い致します。
===============================================
Option Explicit
Sub kurikaeshi()
Dim retu As Long, gyou As Long
Dim File As Workbook
Set File = Workbooks("test.xlsx")
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = File.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(1)
Workbooks.Open FileName:=ThisWorkbook.Path & "/" & File
For retu = 2 To ws1.Cells(4, ws1.Columns.Count).End(xlToLeft).Column 'ここが処理されません
For gyou = 4 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Rows
If ws1.Cells(gyou, retu).Value = "1" Then
ws2.Range("A1") = ws2.Range("A1") + 1
If ws1.Cells(gyou, retu).Value = "2" Then
ws2.Range("B1") = ws2.Range("B1") + 1
End If
Else
Exit Sub
End If
Next gyou
Next retu
End Sub
VBAにて、最終列の取得ができません。
また、繰り返し処理を3列処理、step5、3列処理、step5…と繰り返し行う方法もご教授いただきたいです。
エクセルはo365を使用しております。
①最終列の取得
実際は300列近くの表になります。
最終行は取得できたのですが、最終列がなぜかエラーも出ず、処理が行われません。
②不規則な繰り返し処理
画像の水色部分のみ処理を行いたいです。
3列処理と記載したのですが、セル結合しているので、考え方が合っているのかも不明です。
塗りつぶされているセル一つ一つに処理を行いたいです。
また、行列共に可変します。
実行したいマクロは、選択したブックのSheets(1)の表の中の水色に入力されている文字列が「1」か「2」か判断するというものです。
「1」と入力されていれば → 別ブックのA1セルに1をカウント
「2」と入力されていれば → 別ブックのB1セルに1をカウント
※水色セルは参考で用意したものなので、実際は塗りつぶしされていません。
※空白のセルもあります
①②の解消法のご教授をよろしくお願い致します。
===============================================
Option Explicit
Sub kurikaeshi()
Dim retu As Long, gyou As Long
Dim File As Workbook
Set File = Workbooks("test.xlsx")
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = File.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(1)
Workbooks.Open FileName:=ThisWorkbook.Path & "/" & File
For retu = 2 To ws1.Cells(4, ws1.Columns.Count).End(xlToLeft).Column 'ここが処理されません
For gyou = 4 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Rows
If ws1.Cells(gyou, retu).Value = "1" Then
ws2.Range("A1") = ws2.Range("A1") + 1
If ws1.Cells(gyou, retu).Value = "2" Then
ws2.Range("B1") = ws2.Range("B1") + 1
End If
Else
Exit Sub
End If
Next gyou
Next retu
End Sub
VBAにて、最終列の取得ができません。
また、繰り返し処理を3列処理、step5、3列処理、step5…と繰り返し行う方法もご教授いただきたいです。
エクセルはo365を使用しております。
①最終列の取得
実際は300列近くの表になります。
最終行は取得できたのですが、最終列がなぜかエラーも出ず、処理が行われません。
②不規則な繰り返し処理
画像の水色部分のみ処理を行いたいです。
3列処理と記載したのですが、セル結合しているので、考え方が合っているのかも不明です。
塗りつぶされているセル一つ一つに処理を行いたいです。
また、行列共に可変します。
実行したいマクロは、選択したブックのSheets(1)の表の中の水色に入力されている文字列が「1」か「2」か判断するというものです。
「1」と入力されていれば → 別ブックのA1セルに1をカウント
「2」と入力されていれば → 別ブックのB1セルに1をカウント
※水色セルは参考で用意したものなので、実際は塗りつぶしされていません。
※空白のセルもあります
①②の解消法のご教授をよろしくお願い致します。
===============================================
Option Explicit
Sub kurikaeshi()
Dim retu As Long, gyou As Long
Dim File As Workbook
Set File = Workbooks("test.xlsx")
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = File.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(1)
Workbooks.Open FileName:=ThisWorkbook.Path & "/" & File
For retu = 2 To ws1.Cells(4, ws1.Columns.Count).End(xlToLeft).Column 'ここが処理されません
For gyou = 4 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Rows
If ws1.Cells(gyou, retu).Value = "1" Then
ws2.Range("A1") = ws2.Range("A1") + 1
If ws1.Cells(gyou, retu).Value = "2" Then
ws2.Range("B1") = ws2.Range("B1") + 1
End If
Else
Exit Sub
End If
Next gyou
Next retu
End Sub
Visual Studio 2015 Express2015 for Windows DesktopをDVDイメージを仮想ドライブにマウントしてインストールしています。JavaScript LanguageServiceの導入がうまくいきません。
「セットアップパッケージが欠落しているか、破損しています」と出ます。「インターネットからパッケージをダウンロードする」・DVDイメージを選択してもうまくいきません。「パッケージをスキップする」以外の対処方法はありますでしょうか。よろしくお願いします。
パイソンで、コピーアンドペーストでコードを写したのにエラーが出ます。
from time import sleep
target_time = 3
def up_timer(secs):
for i in range(0,secs):
print()
sleep(1)
print(“時間になりました”)
up_timer(target_time)
windows10 Anaconda3
Anaconda Promptで
pip install dlib でインストールできません。
他のライブラリはpipで普通にインストールできています。
初めてライブラリのインストールでエラーになりました。
エラーメッセージはかなりの長文でどこを掲載したらいいのか解らないので最初の白文字だけ掲載します。後は赤文字のオンパレードになっています。
WARNING: pip is being invoked by an old script wrapper. This will fail in a future version of pip.
Please see https://github.com/pypa/pip/issues/5599 for advice on fixing the underlying issue.
To avoid this problem you can invoke Python with '-m pip' instead of running pip directly.
Collecting dlib
Using cached dlib-19.19.0.tar.gz (3.2 MB)
Building wheels for collected packages: dlib
Building wheel for dlib (setup.py) ... error
google翻訳で見たのですがよく解りません。
どなたかインストールの方法をよろしくお願いします
ExcelVBAにて、同じフォルダ内における複数ブックの特定項目(名前、住所)の集計しようと考えて、以下のように作成しましたが、シートの一行目しか取得できません。2行目以降も取得したいのですが、やり方についてご存じの方がいたら、ご教示ください。
'ボタンをクリックした時の処理
Public Sub sample()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'Excelファイルが存在していたらファイル名を返す
wFile = Dir(ActiveWorkbook.Path & "\*.xlsx")
'先頭行を指定
i = 2
'カレントディレクトリに存在するExcelファイルを全て読み込む
Do While wFile <> ""
'開くExcelファイルのフルパスを取得
wFilePath = ActiveWorkbook.Path & "\" & wFile
'名前・住所を取得し配列に格納する(区切り文字:|)
strData = Split(File_Load(wFilePath), "|")
'名前
Cells(i, 1) = strData(0)
'住所
Cells(i, 2) = strData(1)
'ファイル名
Cells(i, 3) = wFile
'次のExcelファイルを取得
wFile = Dir()
'行数をカウント
i = i + 1
Loop
End Sub
'Excelファイルを開いてデータを取得
'戻り値:名前|住所 ( | で区切る)
Function File_Load(ByVal wFilePath As String) As String
Dim CurBookName As Variant
Dim ColNo As Long
Dim RowNo As Long
Dim strValue As String
Dim FoundCell As Range
Dim i As Long
'ファイルを開く
Workbooks.Open wFilePath
'開いたExcelのファイル名を取得
CurBookName = Application.ActiveWorkbook.Name
'検索する項目を配列に格納
wItem = Array("名前", "住所")
Dim s As Long
'検索する
For i = LBound(wItem) To UBound(wItem)
Set FoundCell = Cells.Find(What:=wItem(i))
If FoundCell Is Nothing Then
'検索出来なかった場合
If i = 0 Then
strValue = ""
Else
strValue = strValue & "|"
End If
Else
'検索したセルに移動
FoundCell.Select
ColNo = ActiveCell.Column '列番号を取得
RowNo = ActiveCell.Row '行番号を取得
'住所を取得する
If i = 0 Then
'最初の項目
strValue = Cells(RowNo + 1, ColNo).Value
Else
'2番目以降の項目は|で区切る
strValue = strValue & "|" & Cells(RowNo + 1, ColNo).Value
End If
End If
Next i
'結果を返す
File_Load = strValue
'開いたExcelファイルを閉じる
Application.DisplayAlerts = False '確認メッセージの非表示
Workbooks(CurBookName).Close
Application.DisplayAlerts = True '確認メッセージの表示
End Function
ExcelVBAにて、同じフォルダ内における複数ブックの特定項目(名前、住所)の集計しようと考えて、以下のように作成しましたが、シートの一行目しか取得できません。2行目以降も取得したいのですが、やり方についてご存じの方がいたら、ご教示ください。
'ボタンをクリックした時の処理
Public Sub sample()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'Excelファイルが存在していたらファイル名を返す
wFile = Dir(ActiveWorkbook.Path & "\*.xlsx")
'先頭行を指定
i = 2
'カレントディレクトリに存在するExcelファイルを全て読み込む
Do While wFile <> ""
'開くExcelファイルのフルパスを取得
wFilePath = ActiveWorkbook.Path & "\" & wFile
'名前・住所を取得し配列に格納する(区切り文字:|)
strData = Split(File_Load(wFilePath), "|")
'名前
Cells(i, 1) = strData(0)
'住所
Cells(i, 2) = strData(1)
'ファイル名
Cells(i, 3) = wFile
'次のExcelファイルを取得
wFile = Dir()
'行数をカウント
i = i + 1
Loop
End Sub
'Excelファイルを開いてデータを取得
'戻り値:名前|住所 ( | で区切る)
Function File_Load(ByVal wFilePath As String) As String
Dim CurBookName As Variant
Dim ColNo As Long
Dim RowNo As Long
Dim strValue As String
Dim FoundCell As Range
Dim i As Long
'ファイルを開く
Workbooks.Open wFilePath
'開いたExcelのファイル名を取得
CurBookName = Application.ActiveWorkbook.Name
'検索する項目を配列に格納
wItem = Array("名前", "住所")
Dim s As Long
'検索する
For i = LBound(wItem) To UBound(wItem)
Set FoundCell = Cells.Find(What:=wItem(i))
If FoundCell Is Nothing Then
'検索出来なかった場合
If i = 0 Then
strValue = ""
Else
strValue = strValue & "|"
End If
Else
'検索したセルに移動
FoundCell.Select
ColNo = ActiveCell.Column '列番号を取得
RowNo = ActiveCell.Row '行番号を取得
'住所を取得する
If i = 0 Then
'最初の項目
strValue = Cells(RowNo + 1, ColNo).Value
Else
'2番目以降の項目は|で区切る
strValue = strValue & "|" & Cells(RowNo + 1, ColNo).Value
End If
End If
Next i
'結果を返す
File_Load = strValue
'開いたExcelファイルを閉じる
Application.DisplayAlerts = False '確認メッセージの非表示
Workbooks(CurBookName).Close
Application.DisplayAlerts = True '確認メッセージの表示
End Function
ExcelVBAにて、同じフォルダ内における複数ブックの特定項目(名前、住所)の集計しようと考えて、以下のように作成しましたが、シートの一行目しか取得できません。2行目以降も取得したいのですが、やり方についてご存じの方がいたら、ご教示ください。
'ボタンをクリックした時の処理
Public Sub sample()
Dim wFile As String
Dim wFilePath As String
Dim i As Long
'Excelファイルが存在していたらファイル名を返す
wFile = Dir(ActiveWorkbook.Path & "\*.xlsx")
'先頭行を指定
i = 2
'カレントディレクトリに存在するExcelファイルを全て読み込む
Do While wFile <> ""
'開くExcelファイルのフルパスを取得
wFilePath = ActiveWorkbook.Path & "\" & wFile
'名前・住所を取得し配列に格納する(区切り文字:|)
strData = Split(File_Load(wFilePath), "|")
'名前
Cells(i, 1) = strData(0)
'住所
Cells(i, 2) = strData(1)
'ファイル名
Cells(i, 3) = wFile
'次のExcelファイルを取得
wFile = Dir()
'行数をカウント
i = i + 1
Loop
End Sub
'Excelファイルを開いてデータを取得
'戻り値:名前|住所 ( | で区切る)
Function File_Load(ByVal wFilePath As String) As String
Dim CurBookName As Variant
Dim ColNo As Long
Dim RowNo As Long
Dim strValue As String
Dim FoundCell As Range
Dim i As Long
'ファイルを開く
Workbooks.Open wFilePath
'開いたExcelのファイル名を取得
CurBookName = Application.ActiveWorkbook.Name
'検索する項目を配列に格納
wItem = Array("名前", "住所")
Dim s As Long
'検索する
For i = LBound(wItem) To UBound(wItem)
Set FoundCell = Cells.Find(What:=wItem(i))
If FoundCell Is Nothing Then
'検索出来なかった場合
If i = 0 Then
strValue = ""
Else
strValue = strValue & "|"
End If
Else
'検索したセルに移動
FoundCell.Select
ColNo = ActiveCell.Column '列番号を取得
RowNo = ActiveCell.Row '行番号を取得
'住所を取得する
If i = 0 Then
'最初の項目
strValue = Cells(RowNo + 1, ColNo).Value
Else
'2番目以降の項目は|で区切る
strValue = strValue & "|" & Cells(RowNo + 1, ColNo).Value
End If
End If
Next i
'結果を返す
File_Load = strValue
'開いたExcelファイルを閉じる
Application.DisplayAlerts = False '確認メッセージの非表示
Workbooks(CurBookName).Close
Application.DisplayAlerts = True '確認メッセージの表示
End Function