mixiで趣味の話をしよう

mixiコミュニティには270万を超える趣味コミュニティがあるよ
ログインもしくは登録をして同じ趣味の人と出会おう♪

条件変更

すべての検索結果:15

検索条件:タイトルと本文+更新順

EXCEL VBAトピック

EXCEL VBAのトピック

EXCELとACCESSの連携 その3(最終)

; ADODB.adStateClosed Then 25. objRec.Close 26. Set objRec = Nothing 27. End If 28 . 29. If objCnn.State <> ADODB.adStateClosed Then 30

  • 2019年08月17日 23:00
  • 4316人が参加中
  • 3

EXCEL VBAトピック

EXCEL VBAのトピック

EXCELとACCESSの連携 その2

'ADODBオブジェクトをクリア If objRec.State <> ADODB.adStateClosed Then objRec.Close Set objRec = Nothing End If If objCnn.State <>

  • 2019年08月16日 08:39
  • 4316人が参加中
  • 9

EXCEL VBAトピック

EXCEL VBAのトピック

SQLite3のEUCエンコーディングのDBをExcel VBAで読み書きしたい

rs.Fields Cells(i, j).Select If m_Field.Name = "t1" Then SQLite3のEUCエンコーディングのDBをExcel VBAで読み書きしたい

  • 2015年05月05日 16:05
  • 4316人が参加中
  • 13

EXCEL VBAトピック

EXCEL VBAのトピック

MIxi日記のセーブマクロ

= "399831" 'My Mixi User ID If OwnerId = "" Then OwnerId = MsgBox("MIXI ID?") If OwnerId = "" Then Exit Sub

  • 2014年05月19日 19:45
  • 4316人が参加中
  • 120

EXCEL VBAトピック

EXCEL VBAのトピック

はじめまして!

, _ LookIn:=xlValues, LookAt:=xlWhole) If Not rf Is Nothing Then Exit For End With Next If Not rf Is Nothing Then Label3.Caption

  • 2010年11月18日 08:42
  • 4316人が参加中
  • 2

Excel(エクセル)活用トピック

Excel(エクセル)活用のトピック

コードがうまく動作していない?

) If MyRange0 Is Nothing Then Cells(最終行0 + 1, 10 :=fukusyoku2) If MyRange2 Is Nothing Then

  • 2010年08月10日 10:46
  • 20950人が参加中
  • 3

EXCEL VBAトピック

EXCEL VBAのトピック

シート選択ダイアログ

= ShowSelectSheetDialog()   If Not Sheet Is Nothing Then     MsgBox Sheet.Name & "が選   End If   Set Sheet = Nothing End Sub ' // シート選択ダイアログ Public

  • 2010年05月12日 00:13
  • 4316人が参加中
  • 1

Excel(エクセル)活用トピック

Excel(エクセル)活用のトピック

VBA 並べ替えが上手くできない

:=fukusyoku2) If MyRange2 Is Nothing Then If k <> 5 Then 最終行2 = Cells(Rows.Count, 12).End

  • 2010年04月30日 14:29
  • 20950人が参加中
  • 5

EXCEL VBAトピック

EXCEL VBAのトピック

実行時エラー '50290':の対処法について

を削除 If Range("X1").Value = 1 Then Call Del_Sheet \" & P_name & cnsDIR) If CheckFile = strFILENAME Then Image2

  • 2009年12月15日 20:30
  • 4316人が参加中
  • 5

Excel(エクセル)活用トピック

Excel(エクセル)活用のトピック

AccessのマクロをExcelのみで実行する方法

accApp = GetObject("C:\test.mdb")   If Not accApp Is Nothing Then = Nothing    End Sub ' ■ Access VBA -- C:\test.mdb を作成 ■ ' // 標準

  • 2008年08月10日 23:35
  • 20950人が参加中
  • 29

EXCEL VBAトピック

EXCEL VBAのトピック

範囲の中に数字を一つだけ表示

Variant   If Application.Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub   If Target.Offset(-1, 0) <> "" Then     clvl

  • 2007年09月10日 23:40
  • 4316人が参加中
  • 13

Microsoft Projectトピック

Microsoft Projectのトピック

MS Project2007でVBAを書きたい(ほぼ似たようなコードをOutlook2007で作成済み)

'1から、最後の数までのどれかのインデックス番号を取得 If NumItms > 0 Then Randomize MS Project2007でVBAを書きたい(ほぼ似たようなコードをOutlook2007で作成済み)

  • 2007年06月24日 05:34
  • 107人が参加中

お勉強トピック

お勉強のトピック

自作VBA

= Selection.Find(what:=TextBox2.Text, lookat:=xlWhole) If 一致 Is Nothing Then MsgBox If ComboBox2 = "サイクル" Then .AddItem "-1〜10

  • 2007年05月01日 02:59
  • 8人が参加中
  • 1

EXCEL VBAトピック

EXCEL VBAのトピック

【質問】SELECTで取得したデータがNULLの場合におけるIF文付近でのエラー(SQLServerに接続)

ーザが入力した値が一致したら, うまく下記のマクロが正常に動きますが, 一致しない場合,下記の If rs!Level = Null Then の行 'RecordsetオブジェクトのOpenメソッド rs.Open sql, cn If rs!Level = Null Then

  • 2006年11月11日 21:26
  • 4316人が参加中
  • 12

Microsoft Office Accessトピック

Microsoft Office Accessのトピック

既存Excelの指定シート内の行検索につきまして

)                ↑↑↑↑↑↑         【ここにはちゃんとデータが表示されます】 If Not (rng Is Nothing) Then For n = 1 Accessプログラムを始めてまだ一年、Table、クエリ、VBAは 何とか判るけれどForm、Report、SQLは良

  • 2006年10月04日 15:09
  • 3163人が参加中
  • 2