CR,LF,CRLFが混在しているテキストで難儀しております。
VB.NETでReadLine()を使えば、どんな改行コードでも削除した文字列を取得できますが、同じ内容を書き込む場合にどのような改行コードわからないと同じファイルができません。
安直にNewLineやWriteLine()を使うと、どんな改行コードでWindowsの場合はCRLFになります。
ReadLine()で取得した文字列＋改行コードがわかる方法がありますか？
以下、例です。
dim s as String
Dim sr As New System.IO.StreamReader("yomu", "ISO-2022-JP")
Dim sw As New System.IO.StreamWriter("kaku", false, "ISO-2022-JP")
While sr.Peek() > -1
s = sr.ReadLine() '改行文字を取り除いた文字列
sw.Write(s) '書き込む
end While
sr.close()
sw.close()
エクセルＶＢＡの名前を付けて保存について質問です。
名前を付けて保存するとき、保存先に同じ名前のファイルがあると
「この場所に○○というファイルがありますが置き換えますか?」
と表示され「いいえ」もしくは「キャンセル」を選択すると実行時
エラーが表示されます。
キャンセルしてもエラーが出ないような構文を書きたいのですが
わかりません。
もし知っている方がいるようでしたら教えてください。
Dim MySavePath As String
MySavePath = Application.GetSaveAsFilename(Date, "Excel ファイル (*.xls), *.xls")
If MySavePath <> "False" Then
ThisWorkbook.SaveAs MySavePath & ".xls"
End If
まだ初心者で本を片手に作成しております。
今回ユーザーフォームで入力致しました。
エクセルのD1のセルにカウントが入力され、
順次にA3.B3,A4.B4に入力されています。
それをアクティブセルの入力出来るように変更したいのですが、
わかりませんので、宜しく教授ください。
※range・cellsをactiveに変更しましたが、うまくいきませんでした。
下記はmoduleにしました。
Option Explicit
Sub ShowForm()
Worksheets("高").Activate
Call 画面初期化
会員登録.Show
End Sub
Public Sub 画面初期化()
Worksheets("高").Activate
会員登録.会員番号.Value = Application.WorksheetFunction.Max(Range("A3:A65536")) + 1
会員登録.氏名カナ.Value = ""
End Sub
こちらはフォームに記入しました。
Option Explicit
Private Sub CommandOK_Click()
Dim Row As Integer
Row = Range("d1").Value + 3
If 会員登録.氏名カナ.Value = Empty Then
MsgBox ("氏名カナが空欄です")
Exit Sub
End If
Cells(Row, 1).Value = 会員登録.会員番号.Value
Cells(Row, 2).Value = 会員登録.氏名カナ.Value
Range("D1").Value = Range("d1").Value + 1
Call 画面初期化
End Sub
まだ初心者で本を片手に作成しております。
今回ユーザーフォームで入力致しました。
エクセルのD1のセルにカウントが入力され、
順次にA3.B3,A4.B4に入力されています。
それをアクティブセルの入力出来るように変更したいのですが、
わかりませんので、宜しく教授ください。
※range・cellsをactiveに変更しましたが、うまくいきませんでした。
下記はmoduleにしました。
Option Explicit
Sub ShowForm()
Worksheets("高").Activate
Call 画面初期化
会員登録.Show
End Sub
Public Sub 画面初期化()
Worksheets("高").Activate
会員登録.会員番号.Value = Application.WorksheetFunction.Max(Range("A3:A65536")) + 1
会員登録.氏名カナ.Value = ""
End Sub
こちらはフォームに記入しました。
Option Explicit
Private Sub CommandOK_Click()
Dim Row As Integer
Row = Range("d1").Value + 3
If 会員登録.氏名カナ.Value = Empty Then
MsgBox ("氏名カナが空欄です")
Exit Sub
End If
Cells(Row, 1).Value = 会員登録.会員番号.Value
Cells(Row, 2).Value = 会員登録.氏名カナ.Value
Range("D1").Value = Range("d1").Value + 1
Call 画面初期化
End Sub
まだ初心者で本を片手に作成しております。
今回ユーザーフォームで入力致しました。
エクセルのD1のセルにカウントが入力され、
順次にA3.B3,A4.B4に入力されています。
それをアクティブセルの入力出来るように変更したいのですが、
わかりませんので、宜しく教授ください。
※range・cellsをactiveに変更しましたが、うまくいきませんでした。
下記はmoduleにしました。
Option Explicit
Sub ShowForm()
Worksheets("高").Activate
Call 画面初期化
会員登録.Show
End Sub
Public Sub 画面初期化()
Worksheets("高").Activate
会員登録.会員番号.Value = Application.WorksheetFunction.Max(Range("A3:A65536")) + 1
会員登録.氏名カナ.Value = ""
End Sub
こちらはフォームに記入しました。
Option Explicit
Private Sub CommandOK_Click()
Dim Row As Integer
Row = Range("d1").Value + 3
If 会員登録.氏名カナ.Value = Empty Then
MsgBox ("氏名カナが空欄です")
Exit Sub
End If
Cells(Row, 1).Value = 会員登録.会員番号.Value
Cells(Row, 2).Value = 会員登録.氏名カナ.Value
Range("D1").Value = Range("d1").Value + 1
Call 画面初期化
End Sub
色々と調べましたが、どうしても分からなく、質問させていただきます。
3000件程のデータが「1」という名称のシートに収まっています。
自分の部署と他部署のデータが混在しており、その中から他部署のデータを件名から抽出し、別シートへ移動させたいと考えております。
件名の頭文字には、自分の部署の場合、「A」「B」「C」が必ず付き、他部署のデータにはABCがまったく付かない状態です。
例：自分の部署の場合→ A今日の献立
他部署の場合→ 今日の献立
他部署の件名データの頭文字に「Z」という文字を追加しようと思い、まず、件名が入力されているE列の右に新たな列（E列)を追加し、そこへ該当する件名には「Z」を入力、E列と件名のF列を一緒にしようと試行錯誤したのですが、「Z」を入力する為のマクロがどうしても出来なくて苦戦しております。
ご教授お願い致します。
Sub Macro1()
Worksheets("1").Select
Columns("E").Insert shift:=xlToLeft
Range("F2").Activate
Dim strName As Long
For strName = Cells(Rows.Count, 6).End(xlUp).Row To 2 Step -1
With Cells(strName, 6)
Select Case strName
Case strName Like "A"
activecells.Offset(0, -1).Value = ""
Case strName Like "B"
activecells.Offset(0, -1).Value = ""
Case strName Like "C"
activecells.Offset(0, -1).Value = ""
Case Else
activecells.Offset(0, -1).Value = "Z"
End Select
End With
Next strName
End Sub
