VBA参照範囲の変更の仕事 [IT・通信・インターネット]
VBA参照範囲の変更に関する仕事・募集案件ページです。クラウドソーシングのランサーズで、Excelマクロ作成・VBA開発に関する最適な外注/発注先をお探しの方、副業案件・求人をお探しのフリーランスの方はまず会員登録がおすすめです。
Excelマクロ作成・VBA開発に関連した他の仕事を探す
見積もり募集の結果
募集期間
1日間
提案数
15件
当選人数
1 件
(募集人数1人)
実際の発注内容
シルバー 認証済み、受注実績あり、評価が高く活躍中のランサーです Access、Excel、VB.NET、PHPでのWindows、Webの業務アプリ開発 お任せ
- 希望時間単価 ---
- 実績 32
- 評価満足率 100 %
- プロジェクト完了率 100%
- 機密保持
- 本人確認
- 電話
はじめまして、東京・小金井市で業務IT化コンサルタントおよびAccess、VBによる業務アプリケーションとPHPでのWebアプリケーションを中心に開発しています。 お客さまのご要望を直にヒアリングして、使えるシステムを提供することを目的に独立し、フリーとして活動して30年になります。 EXCELではちょっと物足りない、と思っている方はAccessに変更してみませんか。 弊社が、EX... 続きを読む
見積もり募集の内容
- 依頼主の業種
- IT・通信・インターネット
- 提示した予算
- 1 円 ~ 5,000 円
- 依頼概要
-
【依頼したい内容】
既存マクロ/VBAの修正
【必要な機能】
ランサーに相談する
【希望するスキル】
Excel関数
【重視する点】
クオリティ
納期
【補足】
既存VBAの参照範囲を変更したいです
-
下記VBAの参照範囲を全セルにしたいです。
＝URLがあるセルであれば全て画像を抽出したい
ご確認いただけますと幸いです。
Sub PicDownLoad()
Dim strFname As String, strUrl As String
Dim retValue As Long, i As Long
Dim endRow As Long
endRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To endRow
strUrl = Cells(i, 1).Text
If strUrl <> "" Then
strFname = "C:\image\" & Mid(strUrl, InStrRev(strUrl, "/") + 1)
retValue = URLDownloadToFile(0, strUrl, strFname, 0, 0)
If retValu = 0 Then
With Cells(i, 1)
Set objShape = ActiveSheet.Shapes.AddPicture( _
Filename:=strFname, LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, _
Top:=.Top, Width:=.Width, Height:=.Height)
End With
Else
MsgBox "DownLoad Fail " & Chr(10) & strUrl
End If
End If
Next i
End Sub