function msg(value)
  reaper.ShowConsoleMsg(tostring(value) .. "\n")
end

function selectItemsWithSelectedNotes()
    for i = 0, reaper.CountMediaItems(0) - 1 do
        mediaItem = reaper.GetMediaItem(0, i)
        activeTake = reaper.GetActiveTake(mediaItem)
        numEvents, notecntOut, ccevtcntOut, textsyxevtcntOut = reaper.MIDI_CountEvts(activeTake)
        if (numEvents > 0) then
            hasSelectedItems = false
            for e = 0, numEvents - 1 do
                retval, selectedOut, mutedOut, ppqposOut = reaper.MIDI_GetEvt(activeTake, e, 0, 0, 0, 0)
                if (selectedOut) then
                    hasSelectedItems = true
                end
            end
            reaper.SetMediaItemSelected(mediaItem, hasSelectedItems)
        end
    end
end

reaper.Undo_BeginBlock()
selectItemsWithSelectedNotes()
reaper.UpdateArrange()
reaper.Undo_EndBlock("Select Items With Selected Notes", -1)